J 



1 




* .J., 




i' 





TEST TRRGET Qfl-3 



\ 

j 



X. 




1.0 


: s m Li 


1X5 


1.1 


• • •* , a AO ■ 

: to 


, Im <■ 

■ 2.0 
■un ■ 

■ L8 


155 


■ U 1 


t ■■ - r * 





■ 

■ -. . . t 


•'. '. * » i .... 

' . ' " ' * •> ' * 


' 1 - 

■> . ■ 

k 


^^^^ 


- — -— ^ — 150mm 

■* ■ ... . 


- > ** 

"j* 1 




■— ■ 6" ' — -— — ' ' 


» • ■ ■ ' ■ r , 


" ■'' , v- 


V . . . 

■ ■ : . • '■ ». 


' t- 




gas . 1653 East Main Street 
=1 Roches**, NY 14609 USA 
£S Ptwne: 716/482-0300 
Fax: 716/28S-5989 




tti^iftfilifiii'tii- 



il -i ilbiitii nn** tint fumm t«h it- - 



Case No. 9262/3 



IN THE UNITED 
APPLICATION FOR 




INVENTOR: 



JAN WASOWICZ 



t 



TITLE: 



ADAPTIVE AUDITORY AND 




METHOD 




MovteSeript4 
on startMovie 

global gda taFieldSpr i t es , gthename, grecordkeeper, Pro, gnewbte, gwhatversion, enterpasslist 
global gObPrefsMan 

put getProStatus (grecordkeeper) into Pro 

set pro = 1 — TTEST _ 
case (pro) of 
1: 

repeat with x= 44 to 48 

— puppetsprite x,true 

set the visible of sprite x to false 
end repeat 

repeat with x = 33 to 36 
,, • — puppetsprite x, true 

set the visible of sprite x to true 
end repeat 

" 2: ' ■ : / , 

repeat with x= 44 to 48 

" puppetsprite x, true 

set the visible of sprite x to true 
end repeat 



end case 



set enterpasslist = list {) 

put "Are you sure you want to delete player" -into line 1 of ©ember "delete text" 

put " " into member "fake pass" 
r- put "" into member "enter new pass* 
put empty into field "enter new pass" 

■» - . i 

■ . ' > .<; . . ' • ' ' - 

. • ' - ' ' - - ■ ' ' \ •' ■ • ' 

~ set gdataFieldSprites = [1,2,3) * 
cursor 4 

set the font of member "UserName" = "helvetica" 
set the fontsize of member "UserName" =14 

set the forecolor of member "UserName" = the forecolor of member "color" 

setL the_^f ont of member "enter name" = "helvetica" 
set the fontsize of member "enter name* = 14 

set the forecolor of member "enter name" * the forecolor of member "color" 

set the font of member "enter new pass" ■« "helvetica" 
set the fontsize of m ember "enter new pass" =14 

set the forecolor of member "enter new pass" = the forecolor of member "pass color" 

set the font of member "confirm new pass" * "helvetica" 
set the fontsize of member "confirm new pass"" =14 

set the forecolor of member "confirm new pass" = the forecolor of member "pass color" 

set the font of member "enter pass" = r helvetica" 
set the fontsize of member "enter pass" =14 

set the forecolor of member "enter pass* = the forecolor of member "pass color" 
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repeat with x in gDataFieldSprites 
put " " into member x • 
set the font of member x = "Geneva" 
set the fontsize of member x = 29 
set the editable of sprite x = true ., 
puppet sprite x , true 
end repeat 

: put gthename into field "username" 

set gwhat vers ion = 0 

■ 

put ""into field "enter name" . \ 

if not ob j ec t P ( gObPr e f sMan ) then ' . 

set gObPrefsMan" =0 
... set gObPrefsMan = new (script "Pre f sScreenManager " } 
end if 

• * ■ .. " " . , * * * 

end .. ' , • 

■* * • ' » 

" * ' . ' 

on stopmovie 

global gVoid, gObPrefsMan, gDTPopUpMan 

■ f ' j, I " ■ -" 

• ' • ' . . ~\ ^ ■ "' " _ • 

if the runMode o. " author" „then 
set gOTPopUpMan = gVoid . 
set gObPrefsMan = gVoid 

end if ' - '* 

i 

" - ' - ' 1 

if the runmode = "author" then, : 
put "x" into field "OserNameV 
put "x" into field "enter name" 
; put "x" into field "Use r NameT i tie" 

* * * 

\ • ... - :.- ■' - . , ' , 

put "x" into field "enter new pass" 

put "x" into field "confirm new' pass" 

• put "x" into field " enter pass" ' ' 

put "x" into' field "fake pass" 

. set the font of member "UserName" = "helvetica- 
set the fontsize of member "UserName* =14 . 

set the forecolor of member "UserName" -the forecolor of member "spot 1 

■•' . . . .- . . ' 

set the font of member "enter name* = "helvetica" 
set the fontsize of member "enter name" = 14 

set the forecolor of member "enter name" = the forecolor of member "spot 

■ 1 ' i * - * . ' 

repeat with x = 2 to 26 

set targetfield = "spot" x ' . 

put " " into field targetfield 
end repeat 



end if 
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end 



\ 



on buttonDownhandler 

put the clickon into x- . ; _ w of me mber {the member of sprite x) 
set buttonName = word 1 ot tne name : ut... 

. set downbutton = buttonName && "down" 
updates t age ., ,,. • 



repeat while the mousedown , " ; , , 

if rollover . (x) th ^. . , . member downbutton 
set the member of sprite x to mem^ 

updatestage : . 

Sl slt the member of sprite x to member upbutton 

Ul 



end if 
end , repeat 



end 



■ 



on arrowuphandler \ 

put the clickon into x . ; . • • 

3 put word 1 of -ne name of member the mousecast into buttonName 
set downbutton = buttonName &&. "down' 

set upbutton = buttonName && "up" : then 
. if the name of member the mousecast = d <^*ton then 

set the uember of sprite x to member upbutton - . 

updatestage 

case (biittonname) of 1 ; . . . 

. . .. "leftarrowV : cursor 4 

go to marker (-1) ;'. 
" "rightarrow" cursor- 4 ;, . . • ; 

go to marker (+1) 



end case 
end if '- 



end 



i , m 

on buttonUPhandler . 
global gtheName. theGame 
put- the clickon into x 

put word 1 of the name of member the mousecast into buttonName 

set downbutton. = buttonName && "down - 

set upbutton = buttonName "up" . • _ .. - „ Ud! ,„ 

Jf thj name of member .the mousecast •« downbutton then 

■ j ■ • _ 
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set the member of sprite x to member upbutton 
updates tage 

. j --sound stop 1 

-r puppet sound 0 
cursor- 4 

If field "UserName" <> "• then ^ 
put "field "UserName" into theName - 

•'- ". . . . 

' , set g theName = theName, 

% • * i 

L ' ■ " 1 * . 4 

case (buttonname)' of 

"clown" rput "5" into theGame 
■ repeat with' x .= 3 to 18 
• puppetsprite x, false , 
end repeat., 

go to frame "mac" . ■ ♦ 

go to movie "Karloon8" 
"coal" : put "6 "; into theGame ' * 

•'repeat with x =3 to 18 
puppetsprite x, false 
• end repeat 1 
go to. frame "black" 
go to movie. "coal8" ■ . 
"rapper " : . put * 4 " into theGame 
repeat with x = 3 to 18 

puppetsprite x, false ' • V ' / 

end repeat . • 

-■ go to. frame "black" 
go to movie "rappers8 " 
) - "katy" :put ,"1" into theGame ../ 

^ repeat with x = 3 to 18 -' 

. puppetsprite x, false / 
. end repeat ". ' . 

go to frame "black" 
go to movie "Katy8" * . 

■ ■ "frog" :put; "3" into theGame. 

. repeat with x = 3 to 18- • 
• - . ■ '■' puppetsprite x, false 

end repeat - 
go to frame "black" - 
...go to movie "RhymeS " 
"farmer" : put "2," into theGame 
'repeat with x = 3 to' 18. 
puppetsprite x, false 
end repeat 
: go to frame "black" ' ' , ■ 

go to movie "Eggsrf" 
end case 

> ■* ■ * 

repeat with g = 3 to. 8 ' 

puppetsprite g, ; false- 
end repeat ~ : . ' 

- else ; 

alert "You must first select a player" 
go to marker (0) . 

j • • ' * • s • . * 

) end if . • . 

J . end if % 



!* 



end ., • - 1 ; 

on enterkeypass 

global grecoidkoeper; wheredoiGO 

put getuserpassword (grecordkeepe: ) into rightpassword 

if line 1 of field "enter pass- "052096" then -« 

go to frame " superpass " 
. exit ' » ' • ' . • _ ; ■ > 

end*. 'if ; . ~. . ' . 

■if line 1 of field Tenter pass" = rightpassword then 
.if wheredoIGO = "preferences" then • 
set the keyUpScript ' : ,:' 
. ini tPref s . ' •- \. .' .. > 

else • . . ..■ •" . . * 

if wheredoiGO = . "datayiew" then .' ; 
;. set the keyUpScript =" " • ■ ' 

initDataView • 
■ ' else ' • , , , , •' 

if wheredoiGO = "player" then..; 

set the keyUpScript = " " i r " . 
. initplayer • •-. 

else ■ ■ • '■• " . ' . ; • . \ 

if wheredoiGO - "delete" then * 

set. the keyUpScript = 
! initdelete 
end if 



V .1 



* M 



end if 
end if 



end if • : • ' .' \ ; . . " ■ : 

' x. _ ■ A ■ - 

else _ • - _ - _ • •' -~ - ■ ' . 

put " * into member *" fake pass " ;. • 

put. "" into* member "enter pass" ' \. • - * 

, updates tag e ■■ " : '. . . 

set the keyUpScript =" " ■ 
; ; alert • " Incorrect Password.* Please Re-Enter Password ana Try Again 

set the keyUpScript .= "if the key = RETURN then enterkeypass" 
end if , • • - ■ ; ; ; < '■ . . " ' - / . - 



end 



on getconNames 

nut Get User Names { gr ec'ordkeepef ) into field "allNames* 

put "all names = " & allNames, 
•repeat with x - ,1 to 3 .. 

set target f ield' = "spot" && x . . <;\ 

' ■ \. puc line-x of field "allNames" into field target field 
set the font of member target field - "Helvetica; 
set the font size, of member target field = 14 , .,- 
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1 



set the forecolor of member 

4 * - - * . . 

* ( ■ . 

■ .( 

' ■ k 1 * 

end repeat 
updates tage 

' r " » - 




1 i , - 

= 'the forecolor of member "spot 1* 



• on getproNames howmany _ ' fiel(J -allNaines- ' 

put GetUserNaroes (grecorcUceeper) iw. 
- put "aUnames = " t allNames 



if voidP(howmany) then , '" 

repeat with x = 1 to. 26 .• ' -' 

set target field = 'spot - x . . 

' " ■ . ~~ - ' - : ' - 

. A , ■ . . - ■ ■ 

\ : if line x of field "allNames- = - then /y 

.exit repeat . "\ ' ". •■ ' .'• ';. .-v- • 

1 end if • . .*'■ / . 

nut line x of field -alltlames- into field target field '.\ / ■ 
; St the font of ^r Wetfijia .-Helvetxca ; , . 

set : S2 foSc^^ f * ^ ^ V 

end' repeat, . - - /, ■'. ' 

else . '•: ' ' ' ' ' ; ■ .' ' ' 

• beep " .. • ■ '•' . .-. , ."• : ' . ... . ' * •• 

put "FULL redraw" . - a ilNames" into num / . 

put the number ©f lines of field am ; 
repeat with x = 1 to (nura+2) ., . 



set 




" x 



put line x of f ield "allNames ■ ; into f ^^arget field . - ' 
.,, set the font of member targetfield. - Helvetica 

. set: the fontsize ot ^e^^^^^ = the forecolor of member . "spot l" 
pet the forecolor of member target neiu .. ^ 

end repeat ► • ' . r. ; , , 

' end if - . - •'• . ' : * 



updates tage 
end 



on checkname / • 

. global pro. : ;■ , . • ' ' .. 

cursor 4 .. . > f ^ 1H -enter name- into NumVer 

■ put zihe number ' of lines of field eniei .. . 

. repeat with x -1 to NumVer - - _ , 
/ if line x of field, "enter name -. tnen 
delete line x of field "enter name . 

end i f « * ' ' 

end repeat < . . .• 
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put the number, of chars of field renter name* into numchars , 
put "number of chars in name = numchars 
if numchars' >2S then 

alert 'Player Names are limited to 25 characters" • 

go to frame ? enter!" 

exit . • ■ 

end if 

put the text of member "en cei i^ame" into tryname 
put tho number of lines of field "allnames" into numnames 
if numchars '<> 0 then 

repeat with x = 1 to numchars 

if char x of field "enter name" - = :" * " then 

alert "Commas can't be used in Player Names." 

, *. * * ■ , ■ • ." - ' ' ■ '* 

go to frame " enter 1" 

, cursor: -1 " - ' 

exit .. ; 

• ; end if • " . ■■ •. ' \ \ / 
end repeat 

repeat with x = 1 to numnames 

■ if line x of field "allnames" =. field "enter name" then 

alert "Player "&& tryname i*£* "already used. Please enter another Name." 
go to frame . "enter 1 " 

cursor > 1 . ' , '. - . , - 

exi t ' - 

• . . . • - . > * . 

end if V 

• end repeat \ . . . • ' 

• set the keydownscript = " * 
go' to frame "enter2" 

don t Pass Event . ' ... 

. cursor -1 ' • " : 

else *. 

alert "Please enter Player Name" 
go' to frame "enterl " 
cursor -1 

• exit ■ • r 
end if . ; . 

" * K " . , "* 7 ' ' ' ' - 

if pro' = 0 then 

" go to f rame "con" ■ , ; , 

else ' 

go to frame "pro" 
end if - . 

cursor -1 '. ' ' 

end , • • 

- »■ . 

on keycheckname 

if the key = ENTER then 

set the keydownscript = " ■ : " '. 
set the keyUpScript = "" 
checkname 
exit 
end if 

*■ " ■ i - ■ * - - 

if the key = RETURN then 
set the keydownscript 
set the ; keyUpScript = "" . 

checkname . . M . - • ■ 

. exit • • , 
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. end if ' 

end - " 

on verifyname * • c 

global grecordkeeper, pro 
cursor 4 

put the number of lines of field "enter name" into NumVer 
- repeat with x = 1 to. NumVer 

if line x of field "enter name" = " " then v 

delete line x of field "enter name" 
end if 
end repeat 

put the number of chars of field "enter name" into numchars 
put the text of member "enter name* into trynaroe 
put the number of lines of field "allnames" into numnames 
if numchars <> 0 then . 

repeat with x = 1 to numchars 

.;. if char, x of field "enter name" - " then 

alert "Commas can't be used in Player Names . * .'. 
go to frame- "enterl" 

exit ■ . .... . . . \ . ■. 

' end if .. ' . . 

end repeat ( , • . : ' : • 

repeat with x = 1 to numnames 

if line x of field "allnames" - field "enter name" then 
; alert. " Player "&& tryname "already used. Please enter another Name, 

go to frame "enterl" .- , , 
.■ ■: ' exit " 

end if • • . - 

■ - ' s . 

end repeat . • ■ ; * 



go to frame "enter 2 " 

else'' # ; y 

alert "Please enter Player Name" 

go to frame "enterl" 
- exit '• ' . '• * • 

* v . 1 " 

end if ■ ." : ••• ■ 

z 1 ■ ' ' ' ' ■ 

1 ■ ' : '■ " * ' ' - 



set PlayerName = the text of. member "enter name" 
if PlayerName <> "" then 
set the keydownscr ipt = 

cursor 4 . . 
AddUser grecordkeeper, PlayerName • 
if Pro = 0 then 

go to frame "con" 
else • 

getpronames " . ; 

.put the number of lines of field "allnames" into x 
set x =. x-1 • 
put "number of people = • " & x 
if x <= 6 then ' 

go to frame, "pro" - 
else', 

if x <=12 and x > 6 then 
go to frame "pro2 " 
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-I ' 



' else • 

if x<= 18 and x >12 then 

go to frame B prp3" ; 
else 

if x <=24 and x > 18 then 

go to frame "prp4* 
else ' 
_ if x <=,28 and x > 24 then 
go to frame "pro5" 
end if 
end i f 
., : " end if • ♦ . ' 

end* if 
end if 



end i f 



go to frame "pro 



else ■ ' •■" , 

go to frame "enter 1 " 
end if 
end . 



on keyver if yname 

if the key .= ENTER then 

veri 
end if 



if the key = RETORN then 
" ver if yname 
end -if 

end 4 ■■ • 



on initPrefs * v ";V" ' *• . ' 

global gObPrefsMan 
cursor 4 . ' _ ■ ' 

repeat with x = 1 to 48 

puppetSprite x false v 
end repeat \\ ■-' 

puppetSpuncl 0 : . * ; 

. * * * " * - ■ 

go to frame "prefs" ".' , ; 

if the number of words in field ; "UserName"' <> 0 then 
put field "userName" into whichUser 
put whichUser into field •TJserNameTitle" 
' closefakef ield 
getPrefs gObPref sMan,, whichUser 

else 

put " " into field "UserNanteTitleV 

end if .. ; • 

.*"•'*..• ... ■ * ■ ■ 

end *■'''.. ."" •. 



on in it Data View 
cursor 4 

repeat with x= 1 to 48 

puppetSprite x , false 
end repeat 
updates tage 
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> . „. - ■ . .... • • ■ ■ 

• go to movie "da t a view" 

end " \ -"*'•' . ' . 

"»''#'. r 1 

1 ■■ L • ■ ■ j ■ • • • „ v 4 

.' • " i ■ ■ - * 

. -'on initplayer ■■■ - . ' 

global passuser ■ . 

cursor 4 ••. ' ;\ *"' .' ' 

- repeat with x = 1 to 48 '. -f ■- ' . ■ • . 

:* puppet Sprite x , false. ; , "\ ..- - 

end repeat ' ; . • "'. 

updates t age / . ... ■?. 

put passuser into field "username" ' } 

»■ « ■ < . _. • - ♦ 

- * ■ ■ • ' ' ■ • ■ " * 

nameplacement : * 7 

closef akef ield ;> 

end - • • V . * ■ . - • .. • 

on initdelete . *- . : 

global passuser v / — - ' ' ■ 

' cursor; 4 . . . '• * ; ' . .. ; 

repeat with x = 1' to 48 . - •• ' ... 

, puppetSprite x , false 

. . end repeat . . * , w . : • 

updates t age ' 7 . . ;;• 4 \ * --'-='. .7 

closef akef ield ' \ ,.•->.' 

set the keyUpScript ; . ' 

go to frame "warhirig' • ' 

• end * . • - r ■ * . 

' ■ ' r > . • . • . ■ . 

, - .1 • - - * ' 4 - " . ... " . + , - ■ 

- * . » ^ -p" „,- . * * . . . k * ' 

- 4 t , ' • * J' 1 

' ■ 1 * » 

. . ** , ' . • >. ' : - • . • : ■ ; 

on nameplacement hameToPlace ^ : 

< 'global- . ; ; . ; ' ■ V; . . t * • 

•■ getpronames ' • • . : - • .'" ; ; 

put the number of. lines of field "allnames" into x . ; : ' ,'• . 

. set x = x-1 .' • ' ; .* . " ■ -.. . 

put "number of names = " & x 

- • set y = 0 . ' . ; ' ' • . ... ;"' . '/ " • 

if voidP(nameToFlace) then changed 1/23/98 

set nameToPlace =' line 1 of f ield "UserName" 
• else • ' • * • '• , '-: 

set traceFlag = true 

end if . '" . -V * •. : . . ■ ; ' •- ■ • ;, , 

repeat with y =1 "o a x ? . 

if line y of f ield "allnames" = nameToPlace then > 
put y into whatplacement ' * " 

. end if - 7 ' •;• • • ; • . . • 

end repeat , 

-- repeat with y = 1 to x \; - 

. if line y of field "allnames" '= line 1 of field "UserName" then 
' put y into whatplacement \ 

I end if. ' ' • ' - 7 ' , 

. - - ' end repeat 
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" ' ■ ■• *" 1 ■ , . .- '* ' 

' 7 * ' i- 



put "whatplacement = >* whatplacanent 
set x =. whatplacement • ' , 



Ov.t 



■: if x .;<= 6 then: ;• v/ 

go to frame "pro" 

else 

i£ x <=12 and x > 6 then - 

. go to frame "pro2" . 

else 

if x<= 18 and x >12 then y 
go to frame "pro3* 

else .. • 

if x <=24 and x > 18 then . 

go to frame "pro4" 
else 

" if , : x, "■<= 28 and x > .24. then . 
y' go to . frame' "pr65" 
' end if v- 

. end ; if - • ; v. . . 

, : end if ; V ,' ' 
■■■ end if .,• . > 

end if ■/ • . ' . ■-■ 

• * - 

*"*■*. * 

, ... . . ♦ 

put "we're at frame the frame 

end : ■ ' ' • 

on fakefield '; 

puppet sprite 38, true 
if the ifiachinetype < 2.55 then 
• set the lo'cV of sprite- 38 to 189 
updates tage 
1 else • • 

set the iocV of sprite 38 to 181 
updates tage 

end if . .'wi 

• • • • 

end 1 - . ■ > ■ • 

* . A ' ' ' 

on closefake field 



end 



puppetsprite 2*8, false 
put ""into member "fake pass" 



•x- ' 



V 
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Score Script5 



■-. on PxitFrame 

; global gObP^efsMan 

. if soundbusy ( 1) then ; 
else 

puppet sound 1 . J. "main track' 
updatestage 

• end if ' • ' ' , r 
' updateGamelcono gObPrefsMan 

go to the frame 

end . 



Script of Cast Member6 




on mouseUp - . ../ .'; ' ' • * 

global gRecordKeeper \ ' . 

St thftext'of member "name" U Return into, nev^a . , . 
nut the text of member "age" & Return after newData; 
.put the text of member -nickname";. Return after newData 
StoreData- gRecordKeeper, "user!" , nevData. true ; 



end 



Script of Cast Member? 



on mouseup 1 ', ■" . 

global gRecordKeeper y 
restoreData gRecordKeeper, "userl" 
restoreData gRecordKeeper, "userl" 
restoreData gRecordKeeper , "user 1 * 



2, "name" 

3 , "age" 

4, -nickname.' 



end 



-RestoreData me, WhichCast , \ WhichLine, whichmember 
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Script of. Cast Member! 1 



pn mouseUp " 
J go to movie "dataview 

- * 

end ■ 



Script of Cast Memoer12 



on' mouseUp 

global gtheName 
T put cield "'J^erName' into theName 

set gtheName = theName ■ 

go to; movie -rappers" 
end 



Script of Cast Memberl 3 



. - * • ■ , 

oh mouseUp 

global gtheName 

put field •UserName* into theName 
set gtheName = theName 
go to movie c . c 



end 



Score Script! 4 



Script of Cast. Member15 
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Score Script 16 



g saved! eve 1, gtheName 



r -on mo.useUp 

global gRecordKeeper /gscoringlevel , 

put field -UserName- into .theName • - 

set gtheName = theName 

- - put "3" into theGame * • ■ 

- LtUpRound (gRecordKeeper, theName, Value ( theGame) ) 
go to frame "intro"of movie "Rhyme 8 

set' gscoringlevel =• the result 
< set gsavedlevel= gscoringlevel. . 
--end * • ; ' : • . 



on mouseUp .* . ' 

sound stop 1 . . 
• puppet sound 0. ' ' '.. 

' : cursor 4 • 

g loba 1 gtheName ) theGame . - 
/put f ield "User Name" into theName 
set gtheName = theName , . 
put "3" into theGame 
go to frame "black " 
go to movie "Rhyme8* . 



end 



Script of Cast Member17 



on mouseUp 1 
v global 

put field "userName" into .theName 
addUser ( gRecordKeeper ( , theName ) 
end 
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Script of Cast Member 18 



i on mouseUp . ' 

global gRecordKeeper :-■ 
" put' field "UserName" into theName 

cut field ^GameNuiTi M into .theGame / . • 

, • setUpRound (gRecordKeeper. theName, Value ( theGame) ) 

end - ~ « ■ - ."•■■'*. : 



Script of Cast Member20 



er 



,6n mouseUp 
global g] 

* set Numplays- item 1- of field "Scores , 
set NumRiqht =' item 2 of field "scores" • .. 
• addtSrel gRecordKeeper, Value (Nump lays) V Value(NumRxght) ) 



end 




V 



Script of Cast Member21 



on mouseUp 



put field "Level" into level 
setScoringLevel (gRecordKeeper/ level) 

. end , . - ■ \ ;.• 



Script of Cast Member22 



on mouseUp. : 
' global gRecordKeeper' 

put field "Level", into level 
setsavedLevel (gRecordKeeper 

end- ; - >• '. 



level) 
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Score Script?? 



on mouseUp 

' put "Player 3 

end 



into field "username 



Score Script28 



. on mouseUp 
put 

. .end . 



Player 4"': into field "username 



Score, Script29 



on mouseUp 

: put 
end 



player 5" into field "username 



\ Score Script30 




on mouseUp 
•put " 

, end 



Player 6" into field "username 



< 
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-.-oh mouseUp •-..'. / . . _ 

global gRecordKeeper,gscoringlevel f gsavedlevel,gthelN»aine 

--- put field "UserName" into theName 
-V set gtheName = theName '• . 

put "6" into theGame 

setUpRound(gRecordKeeper, theName, Value ( theGame ) } 
-- go to movie "coal8" • ....... » • 

set . gscor inglevel = the result ; , 
.— . set gsavedlevel= gscoringlevel 
--end .- v : 



on mouseUp ■ 
; sound stop .1 ; .- 

.puppetsound 0 • 

cursor 4. 

global gtheName, theGame 
... . put field "UserName" into theName 
set gtheName = theName 
put "6" into theGame ' 
go to movie "coalS* , 



i • 

V -r. 



end 



.j 



. f 



> ; 
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. —on mouseUp 

\ „ global gReGordXeeper,gscoringlevel,gsavedl 

put field "UserName" into theName 

set gtheName =* theName * ; 
' put "4" into theGame . .. '. 

setUpRound (gRecordKeeper , theName , Value ( theGame ) ) 

V go to movie "rappers 8" • 

set gscoring level = the result 
set gsavedlevel= gscoring level . 
--end • . . 



■ . • • * • 

on mouseUp 

sound stop 1 . ;-. 

puppet sound 0 
- cursor 4 ' 

global g theName , theGame 

put .field " UserName "into theName 

set g theName = theName 1 

put "4" into theGame 

go to movie 
end 



V 
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--on mouseUp ■ • , 4 m 

- - global gRecordKeeper , gscor inglevel , gsavedlevel , gtheNarne 

; put field "User Name" into theName - > 
._- set gtheNarne = theName 



put "2" into theGame .. 
se tUpRound ( gRecordKeeper , 
go to movie "Eggs8" 
set gscoringlevel •= the result 
set gsayedlevel= gscor inglevel 



theName, Value ( theGame) ) 



--end 



on mouseUp 

sound stop 1 
. puppet sound 0 
- cursor .4 . ... 

global gtheNarne, theGame 
put field "User Name" into theName 
set gtheNarne - theName 
•put "2- into theGame 
go to movie "Eggs8" - 



end 



r 



7\ 
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I^^ToSnRecordKeeper , gscoringlevel , gsavedlevel , gtheName 
,-- put field ^UserName" into theName 

set g theName ■ = theName 

put "1" into theGame 

setUpRound(gRecordKeeper, theName, Value (theGame) ) 

go to movie "katyS" 
' set gscoringlevel = the result. 

-- set gsavedlevel = gscoringlevel 
--end v . 

on mouseUp 

sound stop 1-. , . 

• . puppetsound 0 
cursor 4 
■ global g theName, theGame 
put field "UserName" into theName 

;.',! set g theName = theName 
put " 1 - . into theGame 
go to movie "Katy8" 

• ■ . ■:. ' ' .." ■ / . 

end ■ - ■ 
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r-on mouseUp 



Value (theGame) ) 



'gTSi gRecordKeeper , gscor inglevel . gsavedlevel , gtheName 
put field "User-Name" into tlieNaine 
se t gtheName = . theName 
put "5" into theGame . 
setUpRound ( gRecordKeeper , theName 
go to frame "mac" 
set gscoringlevel "= the result . 
set gsavedlevel? gscoringlevel 
go to movie "Karloon8" 
set gscoringlevel - the result 
set gsavedlevel-. gscoringlevel 



--end 



/ 



on mouseUp 

sound sto^ 1. 
: puppet sound 0 ■ ( . 

cursor 4 

global gtheName , theGame 

put field " y serName " into theName 

set gtheName = theName 

put "5- into theGame \. 

go to movie "Karloon8" 



"\end 
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on exit Frame - • ^ . - '.• 

' if not soundbusy ( 1 ) then 

nuppet sound .1 / "main track" / 
updates € age ; ! 
end if . ■ 

cursor - 1 ' 
— . repeat, with x = i to 8 
. puppetst-r i te x ( , true. 
, 'set the visible of sprite x to true 
. end repeat 



end 



• < 
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on mousedown 

buttonDownhandler , 

.end : l 
on mouseup; 

buttonUPhandier • 
end , 
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on mouseUp 

go to movie "datayiew" 
end - 



> ) 



r ; . 



5. 
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Score Script44 - "• ', ' 

,¥• 

on mouseUp \ 
global passuser , wheredoiGO 



then 



if field "spot 1" <> 

put field "spot 1" , into passuser 

i ■ -, * ■ 

if passuser <> field "userNarne" then 
set wheredoiGO = "player" 
repeat with x = 1 to 48 
puppet sprite x, false 
/ end repeat ••' ■. . ' - 

go 1 to frame * enterplayerpass ". . 
end if 



else , ■■" '* > .' . 

repeat with x ="3 to 8 
puppetsprite x;false 
end repeat 

puppet sprite 17., false 
puppet sprite 1$, false, 
; go to frame "enterl" 

end if"-- 1 . 



end 
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) 



on mouseUp -• 

global passuser, wheredoiGO 
•if field "spot 2 H <> " " then 

put field "spot 2" into passuser 
if passuser .<> field "userName H then 
set wheredoiGO = -player" / 
repeat- with x = 1 to 48: 

puppetspr ite x, false' / . 

' end repeat 



go to f r ariit- 
end if 



ente 



else . > 

■ repeat with, x = 3- to 8 

puppet spr ite x, false 

■ end repeat 

puppetspr ite 17 , false 
1 ; puppet spr ite 18, false 
. go to f r ame " enter 1 " 

end if ' , . 



end . 



T. . ... 
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oh mouseUp 

global passuser ,wheredoiGO 
if field -spot 3- <> then 
'* put field "spot 3" into -passuser 

if passuser <> field ^userName" then 
set wheredoiGO. =. "player - , 
repeat with x = 1 to 48, . 

puppetsprite x, .false 
end repeat ... . 

' • ' ' ? ' - ' : V • : . ; 

. go to frame "enterplayerpass " \ 
. end if : 



else • • 

repeat with x - 3 te 8 
puppetsprite x, false 
end repeat 



• : • puppet spri te 17 /false 
puppetsprite 18 , false 
go to frame " enter 1" 

end if: , 



end 
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on exitFrame 

go to the frame 
end 
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on exitFrame 

put * into field 
set the keydowns 
getconNames 

end 



"enter name 
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on mouseUp 
checkname 

end 



Score Script50 

on mouseUp 
global pro 

set the keydownscript 
if pro - 0 then 
) go to frame "con" 

' else-. ' . ; ■ 

go to frame "Pro" 
' end if 

end '. . - « 1 



■ / 
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on mouseUp' 
yeri f yname 
end 
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p>n exi tFrame . . 

: 4- . set the font of member "enter name* == •helvetica" 
«r *' set the fontsize of member "enter name" =14 - , . 
— set. the forecolor of member "enter name" = the f orecclor of member "spot 1" 



go to the, frame 



end 
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on exi tFrame 

. . repeat with x = 3 to 8 
puppetsprite x, false 
end repeat 



: v 



. puppetsprite 17, false 
puppetsprite 18 /false 
put"" into field "enter name" 
. set the keydownscript = *keycheckname" 
cursor -1 

end : . 



Score ScriptSS 



on exi tFrame 
set the 

end ' -, 



= * keyver i f yname 
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on mouseUp 

/repeat with x = 1 • to 48 
.'. pupp^tsprite x, false . 

end repeat -. 

i' • 

if the machinetype = 256 , then 

qo to frame "win" " . 

else' ■ '• • . 

go to frame "mac" 

end if , - ; " - 



. halt 
end 



■•s 



•* ■** 
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' on mouseUp ; • 

global gthename , thegame 
if field" "userriame": <> ■" " .then 
set thegame =0 ■ - 

), set gthename = field "username" 

■ J • cursor 4 - ; ' 

1 puppetsprite 17 , false . 

puppetsprite 18, false 

go • to movie "progress" r , 

else . \ 

•; alert " Please . .select a. Player" 

end if. . ' 1 . : . , \ '-: • ■ 



end 



« . 
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ion mouseUp 

if field "spot 10 - ;<> then 
put field "spot 10" into field 



username 



else 

go to frame 

end if '. 



enterl 

i ■ 



end 



Score Scrip!60 



on mouseUp , , 

if field "spot 11- <> " : " then 

put field "spot 11- into field "username 

else// ' " - " 

go to frame "enterl" 

end if 



end 



Score Script62 



on mouseUp' 

. if field "spot 12 



<> 



: put field /-spot 12". 
else ' 

go. to frame " enter! " 

end i f 



then 

into field "username 



.end 



> ! 



t 
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on. exitFrame 

j ' put " ■ into f ield' "enter .name 



set the keydownscript - * " 
getproNames ■ , • 



end 



r t 




Score Script64 , 



on mouseup 

global wheredoIGO 

--cursor 4 

repeat with x =1 to 48 .. 

.puppetSprite x v false 
.. end repeat 



+ ► 



set wheredoIGO = 'Dataview" 
go . to frame " enterdatapass " 



i • 4 



end 



s 
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on mousedown ' '« 

bu t t onDownhand 1 e r 
end 

on mouseup 

. arrowuphandler 
end ■ 
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Score Script66 

on mousedown ■ 
. /' buttonl>DVv^ihandier 
arrowDownhandler 

end 



on mouseup. 

arrowuphandler • 

end 



3 
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on mouseUp 

global passuser , wheredoiGO 
' if field "spot 4" <> " "- then; • 
; put field "spot '4" into passuser 

if passuser <> field "userName" then 
set wheredoiGO = "player" 
repeat with x = 1 to 48 

puppet sprite x 
end repeat 



J 



-•s 



1 t 



false 



' > go to frame "enterplayerpass 
end if 

■ • • ■ - ■ . '•■ ■ . 

else, ' .. ;• 

repeat with x = 3 to 8 . 
puppet: sprite x, false 
< end reoeat 

puppet sprite* 17 , false 
. puppetsprite 18 , false .. 

go to rrame "enterl" 
end if r 



end 
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Score Script68 

• '■■ . 

'] ori inouseUp 

global passuser , teredo iGO 
if. field "spot 5" <> " * then. 

put field "spot 5" into passuser 

if passuser <> field "userName" then 

set wheredoiGO - "player' " 
repeat with x = 1 to 18 
puppetsprite x, f a3 se 
end repeat 

go to frame " enterplayerpass - 

end if • v ■ - , 

jk . ■ . .. v t 

else • • 

repeat with x = 3 to 8 . . 

puppetsprite x, false 
end repeat / . , • ) 

puppetsprite 1*7 , false 
.puppetsprite 18, false 

* go' to frame "enter 1' 

end if ■ 

■ ' y ... 1 . . 

.J • . . ■ ■ • " . ■ 

end - 

■ : - ' \ 

- * . , " -*, * 

' . V 1 ' - *- . - * 

< '- * i 

1 ' . :" *' ' - ' ' . " 1 . . ■ ■ • 
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on mouseUp - . 

global passuser .wheredoiGO 
if field -spot 6" <> / \ then 

put field "spot 6" into passuser 
•• if passuser <> field "userName" then 
■ set wheredoiGO = . "player- 
repeat with x =1 to 48 

puppetsprite x, false . 
end repeat , V 

go to frame -ent erplayerpass " 
' end i f : 



else ' 

repeat with x =3 tO' 8 
: puppetsprite x, false 
end repeat 

"puppetsprite 17, false 
puppetsprite 18, false 
go to frame - enter 1" - 

end if 



end 
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Score Script83 



on mouseUp . . ; -;'-*.*■ 

i global passuser , wheredoiGO. . ; 
'. if field "spot 7* <> mm then , .. 

put' field- 'spot "7" into passuser 
if passuser <> field "user-Name" then 
set wheredoiGO.- "player" ; 
repeat. with x = 1 bp 48 . • 

puppetsprite x 
end repeat. 

, ( go to frame " enterplayerpass " 

end if ,.- . ' . 



else; . 

repeat with x =3 to 8 
puppetsprite x, false 
end repeat \ 

puppetsprite 17 .false . 
. puppetsprite 18, false 
go to. frame "enterl " 

end if •.. . 



end 



* I 



/ « 



■1 
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Score Script84 

• . - . • , • ■ ■ ■ 

■ - » . 

bn mouseUp ■-. ;'- . " 

global passuser , wheredoiGO 
if field "spot : 8" <> H " then 

put field "spot 8" into passuser 
\ if passuser <> field "userName" then, 
• set wheredoiGO - H player" . • 
repeat - with.x = 1 to 48 
puppetsprite x, false 
end repeat *' •." •• • 

go to frame "enterplayerpass"; 

end if % - . 

■ * • * *. * 

■ else 

" repeat with x = 3. to 8 
puppetsprite x, false 

end repeat 

. puppetsprite' 17, false . 

puppetsprite 18, false , 
. go to frame "enterl" t . 

-.end if ' : - " . ' .. - :; : v * .' .' ' - 

end.' 



4 + 
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Score Script85 



j on mduseUp ' 

global pa s sus e r , wher edo i GO * 
if. field "spot 9" •<> " " then 

put field "spot 9 "into passuser 
' if passuser <> field "userName^ then 



; v set wher edo iGO = 
repeat with x = l.to 48 
puppetsprite x, false 
end repeat • 



er 



go to ; frame 
end i f 



enterpl ayerpass. " 



else 1 

repeat with x = 3 to 8 

. puppetsprite x, false 
end repeat 



puppetsprite 17 , false 
pupp.e t spr i t e 1 8 , f a 1 s e 
go to frame " enter 1" . 



end i f 



end 
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Score Script88 



'A 



.1 



on roouseUp • 

global passuser , wheredoiGO 
if. field -spot. 10" <> Chen 

put field -spot 10." into passuser 
if passuser <> field "userNarae" then 
V set wheredoiGO' = -player-; • 
repeat with x = 1 to 48 
puppet sprite x, false 
end repeat \ ,y . 

go to f rame -ente rplayerpass" 
' end if 



else V 

repeat with x == 3 to 8 
' ; puppetsprite x, false 

end repeat . 

« - ' , 

puppetsprite 17 , false : 
puppetsprite 18, false 
go to frame "enterl" 
end 'if 



end 



< 



- 1 * 



i » 



r 
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Score Script89 



on mouseUp 

global passuser , wheredoiGO 
if field "spot 11* <> >w then 

put field "spot 11" into passuser 
if passuser <> field " userName m then 

set wheredoiGO = "player" 
repeat with x= 1 to 48 
puppetsprite x, false 
end repeat 



go to frame 
end if 



enterplayerpass 



else ; 

repeat with x = 3 to 8 
puppetsprite x, false 
end repeat 

k puppetsprite 17, false 
puppetsprite 18, false 
go to frame * enter! 

end if - 



end 
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Score Script9G V 

i 

\ on mouseUp 

'global passuser, wheredoiGO 

if field "spot 12" <> then, . 
• put field "spot 12" into passuser 
• if passuser <> field "userName" then 
set wheredoiGO = "player" 
repeat with x = 1 to 48 
puppet sprite x, false 
end repeat 

go to frame "enterplayerpass " 
end if i 
else "■ 

repeat with x = 3 to 8 .. . 

• • . puppetsprite x, false 
end repeat 

puppetsprite 17", false 
puppetsprite 18, false 
go to. frame "enterl" 
end if , 

end 



■ . - " • ' • 




' • » • . . . 




APPENDIX A-41 



Score Script92 



--'■■\ 



on mouseUp - *• 

global passuser ,v/heredoiGO 
if field "spot 13" <> then ■;■ 
put field "spot 13" . into passuser 
if passuser <> field "userName": then 
set wheredoiGO = "player" 
repeat with x = 1. to 48 
puppet sprite x, 
• * end repeat 



false ' 



• go to frame enterplayerpass " 
end if 



else 

repeat with x = 3 to 8 
puppet sprite x. false 
end repeat 

puppetsprite 17 > false 
puppetspr 1 te 1 8 , false 
go to frame "enterl" ' 
end if 



* r 



end 



k r 



Script oi Cast Member93:UserName 



APPENDIX A-42 



Score Script95 



on mouseUp 

global passuser, wheredoiGO 
if field "spot 14- <> -"then 

put field "spot 14" into passuser 
if passuser <> field "user Name" then 
set wheredoiGO = -player" . 
repeat with x = 1 to 48 

puppetsprite x 
end repeat 



false 



- go to frame "en t e rp 1 ay e rpa s s ' 
end If 



= 3 to 8 



else 

repeat with x«, 

puppetsprite x, false 

end repeat 



puppetsprite 17 /false 
" puppetsprite 18 /false 
go to frame "enterl" . 

end if " - ". 



end 
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on" mouseUp 

: global passuser , wheredoiGO . * : 
, if field -spot-15" <> -".then 
■.. : . put field "spot 15 M into passuser 

. if passuser <> field "userName" then 
' set wheredoiGO. = "player" 
repeat with x = 1 to 48 
puppetsprite -x;, false 
end.? repeat - 



■a ■ • 



go to f raipe 
end if 



enterp 1 ayerpas s 



else 

repeat with x 



= 3 to 8 



puppetsprite x. false 

end repeat 

■ * • ■ ■ " . , •• 

s puppetsprite 17, false 
puppetsprite 18, false, 
go to frame "enterl" 
end if 



end 



v 



APPENDIX A-44 



;-4 



Score Script97 



on mouseUp 

globa 1 passuser , wheredoiGO 
. if field "spot 16" <> ' " then 

put field "spot 16" into passuser 
. i f passuser <> field " userName * then 

set wheredoiGO = -player" 
repeat with x = 1 to 48 
.;. puppetsprite x, false : 
end repeat 



V 



go to frame 
end if 



en t e rp 1 ay e rpas s 



else 

repeat with x = 3 to 8 
puppetsprite x, false 
end repeat 

puppetsprite 17 , false > 
puppetsprite- 18", false 
go to frame. " enter 1" • 
end if 



end 
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on nvouseUp 

global passuser , wheredo iGO 
if field ; spot 17- <> ""then 
'put field "spot 171 into passuser 
if passuser <> field "userName" then 

set wheredo iGO - -player- 
repeat with x = 1 to 48 
puppet sprite x, false 
end repeat - • 

go to frame " enterplayerpass " 
end if 

else 

repeat with x - 3 to 8 \ 

puppetsprite x, false . 
end repeat 

puppetsprite 17. false 
puppetsprite 18, false 
. go to frarhe" enter 1" ' ..: 
end if 



end 
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Score Script 100 



* * - „ ' 

on mouseUp . 
global passuser 
if field -spot 18- <: "-. then 

put field "spot 18" into passuser 
if passuser <> field "userNaroe" then 

set wheredoiGO > -player- 
repeat with x = 1 to 48 
puppetsprite x, false- 
end repeat \. 

go to frame ' enterplayerpass " 
end if 

v k. ■ ■ 

else 

repeat with, x = 3 to 8 
puppetsprite x, false 

end repeat .. 

-puppetsprite 17 , false 
puppetsprite 18 , false 
go to frame "enter 1" 

end if ■■' ' ^ 

end 
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on mouseUp > ; 

global passuser , wheredoiGO 
if field "spot 19 - <> .->'. then . 

put field "spot 19" into passuser ' 
if passuser '•'<> field "userNaine" then 

'set wheredoiGO = "player" ; * 
• repeat with x ■= 1 to 48 

puppetsprite x* false V 
. end repeat / 

go to frame " en t erp 1 aye rpass" 

end if r . 

else . ." ■ 

. repeat with x = 3 to 8 : 
• puppetsprite x, false ,. 
end repeat .." 

puppetsprite 17, false ; 
puppetsprite 18, false ' 
go to frame " enter! * - . 

■ end i f \ 



end 



i . 
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on mouseUp ^ . ; 

global passuser , wheredoiGO 
; if- field "spot: 20" '<> • ' then 

put field "spot 20- into passuser • 
■ if passuser .<> field "userName" then 

set wheredoiGO = "player- 
repeat with x -1 to 48 • 

puppetsprite x ( false 
end repeat . ; \ ; . . 



go to frame 
end if \ 



■ enterplayerpass ". 



else ■ . 

repeat with x = 3. to .8 
puppetsprite x, false 
end repeat, 

puppetsprite 17, false '. 
puppetsprite 18, false 
.'. go to frame " enter 1" 

.... 

end if ■ > - 



end 



s 
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on mouseUp 

global passuser , wheredoiGO 
if field -spot 21" <> " then 

put field "spot 21" into passuser 
if passuser <> f ield "userName- then 



set wheredoiGO = -player" 
repeat with x => 1 to 48 
puppetsprite x 

end repeat 



false 



go to frame " enterplayerpass 
end if 



i. > 



else ' 

repeat with x = 3 to 8 
' puppetsprite x, false 

end reoeab 

puppetsprite 17 , false. ' 
puppetsprite 18; false 
go to f rame " enter 1 H v 

end if ; : . 



end 



.it , 



• » 
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on nvpuseUp r . • .. 

global passuser , whereddiGO 
. if field -spot 22" <> - mK then 

put field. "spot 22" into passuser 

if passuser> <> field "us erName" then, . 

set wheredoiGO = "player" • 
repeat with x = 1 to 48 
puppet sprite x, false 

end repeat 

■ ■ , • , ■ .... 

■ • * » * 

go to frame 1 "enterplayerpass" 
end if ■ 



repeat with x = 3 to 8 
puppet sprite x, false 

., end repeat ' ' • 

> . 

puppetsprite 17, false 
puppet sprite 18 , false 
go to frame " enter 1- 
end if ' . 



end 



> ■ - 



- .! 
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on mouseUp 

global passuser, wheredoiGO 
if field "spot 23-<> then 

put field "spot 23" into passuser 
if passuser <> field "userName" then 

set. wheredoiGO =< "player" 
repeat with x> 1 to 48 
puppetsprite x, false 
end repeat - • , 

go to frame "enterpiayerpass" 

; end if '.' 

else . 

repeat with x = 3 to 8 
• puppetsprite x, 
end repeat . 

puppetsprite 17, false 
/puppetsprite 18, false 
go to frame "enter!" 
end if 



end 



'V ■ 
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Score Script 133 

* \ , • 

on mouseUp 

global passuser , wheredoiGO 

if field "spot 24" . <> "" then . 

put field "spot 24" into passuser. 
• if passuser <> field "userName" then- 

— ^ L "j .■ 

t. - * : 

set wheredoiGO = "player" . ' - v 
. repeat with x = 1 to 48 
puppetsprite x, false 
> end repeat 

go to frame "enterplayerpass" 
end if 

else ' ■;' '■ 

repeat with x = 3 lo 8 - 
puppetsprite x, falire 

end repeat , ' 

puppe tspr i te 17 , false 
.puppetsprite 18 /false * , . . 
go to frame "enter!" , 
end if • 

end • 



■ i 
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on mouseUp 

global passuser , wheredoiGO . 
if field "spot 25".<> then 
• put field "spot' 25" into passuser 
if passuser <> .field "userName" 



then 



set wheredoiGO = 
repeat with x ■= 1 to 48 
puppetsprite x, 

end repeat 



false'; 



go to frame r en t erp layerpass : 

end if \ 



else 

repeat with x = 3 to 8 

puppetsprite x 
end' repeat . ■ ' . 

. puppetsprite 17 , false" 
puppetsprite 18, false;. 
. go to. frame " enter 1 H 
end if • 



end 



> - 



- r 1 
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on mouseUp ; 

global passuser . wheredoiGO 



if -field "spot 26 <> 
put field "spot 26 



then 
into passuser 



if passuser <> field "userName" then 



set wheredoiGO = -player 
repeat with x - ; 1 to 48 

puppetsprite x, 
end repeat 



false 



'■ go to frame JenterplayerpBss 

end if '. .a 



else 

repeat wit i x '=" 3 to 8 
puppetry ~xte x, false 
; end repeat 



.sprite 17, false 



puppex. 
puppetsprite 18, false 
go to frame "enterl" 



end if 
end 



'.V . 
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on exit Frame 

global greeordkeeper ,Pro, gnewbie 
set gnewbie = I 

put getProStatus (greeordkeeper) into Pro 



if pro = 2 then . : . 

put getuserpas sword (greeordkeeper ) into 
.put "checkpass = " & checkpass 
if checkpass <> ""then ' , ; : 
. go to frame "prointro* 
/ getpronames t 
" nameplacement t - ■ ■ 
V- else " • : . •«. ;• '•' . Z .V , 

go to frame "newpass* 
end rf " a 

else -V ;.- ' 

if pro = 1 then 

go to .frame "proinkro" 

getpronames 666 \ .'*,...- "v 



ss 



i 



else 

if pro = 0 then 

go to frame "con" 
end if . 
end if 
end if. 



end 
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on ex it Frame 
end 
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on exi t Frame 

if* not squndbusy ( 1 ) then 
• puppet sound "1 , "main track 
updatestage • 

end if ) ' ' r ■ . 

end 
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on exi tFrame 

global gObPref sMan 
TurnOnGamelcons (gObPref sMan) 
'• puppetspr i te 17, f alse 
puppetspr i te 18, true 
put " " into , f ield, "enter name 
set the keydownscript = " 
getproNames 

■ ■ ■ . 

end . • 
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on exit Frame 
^global gObPref sMan 

TurnOnGamelcons (gOi : ef sMan) 
puppetspr it'e 17, tru- 
. puppetspr it.e 18. false 
put* into field,, ""--'nter- name 
set the keydowr. *r 
getproNames 
end : * :• " ' -• . 



v 
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on exitFraine 

global gObPrefsMan 
TurnOnGamelcons (gObPref sMan) 
puppetsprite 17 , true 
. puppetsprite 18, false 
put "".into field "enter name 
— set the keydownscript = " 
— " getproNames 

end 
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on mouseUp 

global grecordkeeper , Pro,gnewbie 

set gnewbie = 1 

* put 
if pro =1 then . 

go to frame "prointro 
getpronames . 
else 

• if pro - 0 then 

go to v frame "con" 
end if ' 

, end if 

■ -I - ' 

end . 



into Pro 
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_ * 

on exitFrame 

if not soundbusy ( 1 ) then 
puppet sound 1, "main track 
updatestage 
end , if 
end • 
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* ■ ■ 
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on exi tFrame . ■ V " 

g 1 oba 1 . gdat aF i e 1 dSpr i t es ,g thename ,g recordkeeper; Prp ( gnev^ie ( gwhatversion 



if gnewbie = 1 then 

put get ProStatus'( grecordkeeper). into Pro 

■ ■ « . * 

if the runMode = "author" then 
. __ set Pro 2 MAK 1/22 Take out ! ! ! ! ! 

•' - - . end if. ;■ ' 



if pro = 2 then 
put 

if userpass <> 



into userpass 



then 



. namep 1 acemen t ; 
else 

: go to . frame " newpass 
end if 



else 



alert /Please Insert the Earobics Pro Plus Step 
halt ' ■ .• . 



1 CD- 



end if 



else 



put getnamenumber (grecordkeeper) into serialnum 
put; serialnum into field "serialnum" 
put get ProStatus (grecordkeeper) into Pro 

.- ' ''* -. v ■'■.*. . m -\ • ■ . ...... ' ' ■ . 

. • i ■-■ - 

if the runMode- - "author'' then 

set • Pro = 2 -- MAK 1/22 Take out! ! M> 

end if ' . ' \ ... 



case (pro) of : 

2: go ,to frame "intro"- , ( 

1 : alert "Please Insert the, Earobics Pro CD 

halt- ." , 

0: alert "Please Insert the Earobics CD.". 

halt 



A 

end case 



end if 
end 
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on exi t Frame - . 

go to the ,.f i ame 
end 



on keyup 

if- the "key - RETURN.. then 

if line 1' of field "enter new pass" <> 

' go. to frame "Conf irmpass " «j 
else ; 

alert "You must .enter a, Password" 

go to f rame "NewPass" 
■ end if . • ' V 

• end if . - , .. 

if .the keycode <> 51 then . . ..' 
if" the key <>. RETURN then 

put "•" before; char 1 of member 



" then 



.J 



fake pass 



put the number of chars of field "enter new- pass" into Xnum 

* * ■ ■ 

put the number of chars of field "fake pass" into Ynum > 

if Ynum > Xnum then -v > / . , ', ' 

repeat with x = Ynum down to (Xnum+1) <- 

delete char x of field. "fake pass" ' 
end repeat - ' '., ; 

end if- . ' ■".;'/ ' • ; • ' 

if Ynum < Xnum then 

put Xnum- Ynum into Dif f : 

if Dif f > 1 then ' ; ■ • * . 

repeat with x = Ynum to Xnum " * 

put "*" before char 1 of member "fake pass" 
end repeat 

else - : '- , . • : , 

put "•" before char 1 of member " fake pass" 

- - end if \ . ' ' ': ■ ■ . , - ^ ' • : 

end if : ' ■ •■ ■ • 

* 'i . . • ■ . 

■' ■ " : i ' • * • , .: . ' '' 

• upda test age •-. *' • ■ 

end if - • . 

else ..." 

put "" into member "enter new pass" , , 

put "" into member "fake pass" 

end if • 



>'•••" 



end 
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on exit Frame 

cursor -1 . . : 

put. ~ m into member "fake pass" 
' put into member <>t\+ new pass 

fakef ield 



end 
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. on keydown 

beep : 
end 

on keyup 

beep 
.end 

on exitFrame 

i. 

pause ' 

. end 
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on exit Frame 

■ • * ■ 

, end 



Score Scripti 55 



on exit Frame 
end 



i 
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- -on exi tFrame 
global pro 

global g record keeper : 
-.- put get ProStatus (grecordkeeper ) into Pro 

set- pro - 1 -test 
~ ~ - •■ , 

- - .if pro = 2 then 

repeat with x = 44 to 46 
-- ' puppet spr i te x, true 

set the visible of sprite x to true 



end repeat 



put getuserpassword(greeordkeeper ) into checkpass 
put "checkpass = * & checkpass 
if checkpass <> " " then 

continue 
else. 

go to frame "newpass" 
end if 
else 

repeat with x = 44 to 46 
puppetsprite x, true 

set the visible of sprite x to false 
end repeat ' . -' 



end if 



—end 
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. . • . T, 

on exit Frame 

"go to the frame \ . ■ .» 

end ' ' " / 

on keyup' ■ • *. . • 

if the key = RETURN then 

. if line 1 of field "enter new/pass" = line 1 of field '"confirm', new pass" then 
setuserpas sword (grecordkeeper , line l r of field "confirm new pass") 
go to frame "prointro" ' "* 

— getpronames , 

closef akef ield — . * * 

go to frame "storedpass" . " . 

else -. 
alert "Password not confirmed. Please try again. " . 
closef akef ield . 



go to frame "NewPass 
' end if 



end if ' ' :'■ ■ 

' \ . ' • • • ■ * ■ - • " . . • . 

if the keycode <> 51 then 

if the key <> RETURN then 
< --■ put "•"before char 1 of member "fake pass" 

* " " * ■ .T- . " 

put the number of chars of field "confirm new pass" into Xnum 

1 J , ' 

put the number of chars of field "fake pass", into Ynum 

i - 1 

if Ynum > Xnum then 

repeat with x = Ynum down to (Xnum+1) 
delete char x of field "fake pass" 
* • end repeat , ■ • 

end if '*' 

i f Ynum < Xnum then 
. put Xnurn-Ynum into Diff 
if Diff > 1 then < . . 

repeat with x = Ynum to Xnum 

put "•"before char 1 of member "fake pass" 
"... end repeat 

else ' * 

put*"-" before char 1 of, member " fake pass "> 
end if . : • 

end if . .• 

■ . ••• • . 

updates tag e 
' end if 

else \ : - _ 

put ~ " into member "confirm new pass"' 

put "" into member "fake pass" ' ■ 

end if 

end • • ' 
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on exit-Fr.ame ' \ 

put " " into, member "fake pas's" 

put ~ " . into member "confirm new pass 

fake fie Id 

end ■.- " : - - 



- • --. — - ] 



- r ' 



»-; • . '. , • . . ... 

1 ' •'• . ■ '- .' ' ' . -'.\- I 
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- ■ - .• . 



on exicFraine.' ' , : '•• \ /• . • 1 . ' - . • 

sec the. keyUp:V- v ipt . = "if .the key - RETURN then enterkeypass 
, go to the frame . 

end •' .-• " ! - • : -- ' ■ • 

' : \ . ■ K ■ v .. . • . „ • .. ." 

on keyup • . ■ . ; - • • , 

global wheredoIGO 



i f the key = RETURN then 
enterkeypass . _ ; 



• -- end if 



if the keycode <> 51 then *. "' 

if .the key <> RETURN then • ' .. 

.. put before char 1 of member "fake pass* ' 

; . • ' • •' '"• . . 

put the. number of chars of field "enter pass" into Xnum 

, - Mr ^ . , . . ^ . .. .... ; ; - * _ _ ' • " V 

"put the number of chars of f ield '"fake pass" into Ynum 

■ ■' " ' S ' • ■ T. ' • 

I . . > ■ I 

; ''if Ynum > Xnum. then * ' *■. 

repeat with. x = Ynum down to (Xnum+1) 

delete char .x of field "fake pass" 
end repeat . V 

end. if x • 

■ .... 

if Ynum <• Xnum then 

■ put Xnum -Ynum into Di f f . - ' 

if Dif f > 1 then . • ":, ; , . ;.; . 

repeat with x = Ynum to Xnum 

put before char 1 of member "fake pass" 

end repeat 1 '"• 

■" else. ■ , . ■'• '. •• . ' ■ 

■ / put before char 1 of member " fake pass" 
:. ' : end if' 

end if " ' " . 

'. i * " * ' • * ' 

upda test age. ; 
end if V • : 

else '-. ', _ 

put into member "enter pass* 
. put " " into member "fake pass" 
end if ... 
end - ' - ' ■ 
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on exitFrame 



"..-iHr ; - member " fake pans".. . 
" inr.v. meiriber. "enter, pass* V 
fakef ield 
set Che MyUpSci ipt = "if r.he key 



pUt; 

put 



* - 



- RETURN then enterkeypass 



end 



V* 



Script of Cast Member1?1 
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t on mouseUp 

set the keyUpScr 
closefakef ield . 



end 
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on exit Frame 

go to the frame 

end u ~[\ 

on keyup 

i f the. key ,== RETURN then 
cursor 4 

go to frame "prointro" 
getpronames 666 

end if 
end 



V 



I" 
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on ex ic Frame . 

go to t he frame 
end . • 

* 1 . • 

on keyup * 

global wheredoigo. 

if .the key = RETURN then 



if line 1 of field "enter new pass > = line of field -confirm new pass" then 
setuserpassword(grecordkeeper, line 1 of field, "confirm new pass") 



if wheredo IGO = "preferences" then 

initPrefs - ■ 

else : . 

i f wheredo iGO = " da taview " then 

initDataView 

else . , * 

if wheredo iGO = "player" then 

- ini tplayer '■ : ', 
. end if. ; 

end if • ; , ; 

end if ; 



else. ' ' . .- . ' V " .' ■■■ ■ , . ■■ , . 

alert "Password not confirmed, Please try again. 

closefakef ield 

* - r , 

' ' 1 ' - 

' ' ■ ' • " s * 

go tp frame "superpass" 

end if' ' ; • . r 



end • if : : ■ . . . y f \ - ■ - * ■", 

♦ . v '.' i . . . - 

1 ' ' . - - ... • • " - » . . •• * ■- " " * 

if the key code <> 51 then 

• if the key <> RETURN then 

-; — put before char 1 of member "fake pass" 

..." . * • - ■ . 

put the number of chars of field "confirm new pass " into Xnum 

put the number of chars of field "fake pass" into Ynum ; 

' if Ynum > Xnum then 

repeat with x = Ynum down to (Xnum+1) 
■ delete char x of field "fake pass V 
end r epea t - ■ , " 

end if 



if Ynum < Xnum then 

put Xnum- Ynum into Dif f 
if Dif f > 1 then 

repeat with x = Ynum to Xnum 

put "•" before char 1 of member "fake pass 
end repeat . . 

else . •' •,. . '. ■ ■ 

put ."•" before char 1 of member "fake pass" 
end if - ....... 
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end if 

updatestage 
end if 
else 

put " " into member "confirm new pass 
put " " into member "fake pass" 
end if 
end 
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I- 



on exit Frame 

set the ke^pscfi; 

go to the frame , 
end ■ 



on keyup ' • , 

■ * . ■ • . ■ • ■ 

if the. key:- RETURN then 

go to frame " superpasscqnf irm" . f 

end if . •-" ... 

* i 

if the keycode <■> 51 then 

if the key <> RETURN then . • . ■ < " . • 

put before char 1 of member, "fake pass" 

put the number of chars of field "enter new pass" into Xnum 

put . the number of chars of field "fake pass" into Ynum 

» n * . .i * *■ 

. + -i . _ • ■ * . • . » 

if Ynum r>', Xnum then 
• repeat with x = Ynum down to (Xnum+1) 

delete, char x of field "fake pass" 

■ • ' . - • . ■ . ■ ... 

■ ;end repeat . ; - ;V . 
• end if 

if Ynum < Xnum then. . 
put Xnum- Ynum into Dif f 
if Dif f > 1 then 

repeat with x ■= Ynum toXnum 

put "•" before char ,1 of member "fake pass" 
y_ end repeat " • < 

else '. •' • . 

\, : put "•"• before char 1 of member "fake pass- 
end i f / ■ * " ' •' 
- end if..* 

* * • * |P .* * - 

* . * , ■ ■}...'. . ' 

upda test age • •' ' ■ : ■ \ 

end if. 
else 

put ** " into member "enter new pass" 
put into member "fake pass" 

end if - * ■• ' \ 



end 
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on mouseUp 

'closefake field . 

go to frame "prointro 

getprqnames 666 
'end 
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* * 
• ■ - ' 


. s • : »■ % • 




on ex i t Frame ; . 


• .• • ' - . • . " :: 




i 

*- 


• cursor -1 


. -■ 

• t . •. ' - ■_ 

■ " ' . '.*•.•'? ' * ' ■ 




1 


end . " 

t * . 4 

. '+ ■ 
i . 1 * . 

*"■•*' ' 

1 j 


■ ' * - ■ £ - ■ 

, 1 . '" ' "J ' * 


• *. t . 

** - '. 

: * J " a-'.---*- 


• 

... - - .... .... 
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on mouseUp ? - - - 
c lose f akef i eld 
en t e r keypa ss 

end . " V . 
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on mouseUp - 
. c lose fake f ield . 

go to frame "newpass 

end . ■" • .. 
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on mouseUp ' - ■ • . '■ 

if.' Tine 1 of f ield "enter ne/, pass " = line 1 of field ."confirm new pe^s" then 
setuserpassword (grecordkeeper , line 1 of field "confirm new pass") :. 

close fake fie Id 

go to frame "storedpass" • : - 
• else '. ». " • .. , '■ ". '.r ' • • ' - : ' • •• 

alert "Password not confirmed. Please try again." . / 

close fake field - v -. , 

go to frame TNewPass" . ••' ■•' . 

end if • ; ; . 1 .'. 

end • • : .' ■■■ V ■ ■ 
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on mouseUp 

if field "spot 2 



1 , ■ 



• '1. 



<> - " then, 
put .field "spot 2" into; field "user-name" 

else. '• • ■: . .. 

repeat with x - 3 to. 8 
puppetsprite x, false 
end repeat 



puppetsprite 17 , false 
puppetsprite 18; false 
go to frame "enterl" 
end i f 



end 



V • 
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on mouseUp 

if field "spot 3" <> * then 

put field "spot 3 - ' into field "username'- 

else • '• 
• • " ' repeat with x = 3 to 8 
puppetsprite x, false . 
end repeat 



- * * • 

puppetsprite 17 f false 
puppetsprite 18 ; false 
go to frame "enterl 

. end if • 1 . 

* L 

end 
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on mouseUp 

>< 

if field: -spot 1" <> 



then 



put field "spot 1" into field "username 



= 3 to 8 



else . 

repeat' with x 

puppetsprite- x, false 
end repeat 



puppetsprite 17 , false 
. puppetsprite 18, false 

go to. frame "enterl" 
end if 



end 



c 
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on exitFrame 

go to frame 
end 



logos " 
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on exitFrame - . 

global pro • , 

case (pro) of ' 

•0 # : go to frame •parent" 
" 1 * : go to' frame "pro" 
"2": go to frame 

end case ' ' 



"1 V 



' 1 t 
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on mouseUp 

repeat with x = 1 to 48 

puppetSprite x , false 
end repeat * 
go to movie "preview" 

end .'; ; • - \. : 
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on exitFrame * 

go to the frame 
end 
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on exitFrame 

put empty* before line 1 of field "pref 
end 



Help 
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on mouseUp 

need this script to block 
--passing of mouseUp to sprite in menu frames 

nothing . 

end • . 
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on mouseUp . 

if line 1 of field "enter new pass 

go to frame "Con firmpass" 
else ; 

alert "You must enter a Password 
go to • frame "NewPass " 
end if 



<> 



then 



end 
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on mouseUp . ' 

global wheredoIGO - m ■ ■ " ■■ \ c . *-~««. 

If line 1 of field "enter new pass" = line 1 of field " confirm new^ pass 
; • setuserpassword (grecordkeeper . line 1 of field confirm new pass ) 

closef akef ield / 
if wheredoIGO = preferences*, then 

\ initPrefs : 

else • : • . •. . . • - 

if wheredoiGO = "dataview" then 

, initDataView ... . 

v ■ else... , : * 

if wheredoiGO = "player" then 

initplayer ■ • ,■ . - 

end if : 

■ * . 

end if . - . ' 

end if '" - ■ . . 



then 



■ 1 



else . 
alert "Password not confirmed, Please try again 

closef akef ield . ; > . . ' 

go to frame "superpass" ; 
end if, 
end 



i ■ 
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on mouseUp 

if line 1 of field ■ enter new ; pass" 

closer akef ield 

go to frame' " superpassconf irm" 

else p ■ 

alert "You must enter a 
.'; closefakef ield 

go to frame "superpass" 

end i f 



- then 



end 
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- » 
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on exit Frame 

go to the £ i ame 

end "i 



\ 



\ • ■ 
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on mouseUp - 
global passuser , wheredoiGO 



"'if- field ■ "userName" <> " " then 
set wheredoiGO = -delete" 
repeat with x = 1 to 48 
puppetsprite x, false 
end repeat 



put field "userName" into passuser 
go to frame " enterdelete" 
end if 



end 
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on exitFrame ■ , 

global passuser 

put -Are 1 you sure you want to delete player V into line 1 of ^ mender "delete 
put " " &passuser& after word, 8 of line 1, of member "delete text - 

end • \. . .. '•' '• . • ' * 1 •• \ • ■ . ; •". 



text 
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on, mouseUp 

namep 1 acement 



end 
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I** 



on roouseUp 

. global grecordkeeper,passuser , 
cursor 4 

deleteuser (grecordkeeper , the text of field -userName" ) 
put into field "userName" 
getpronames 666 

nameplacement ; 'j 

cursor -1 * .... " 

end 



i t 
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on exit France 

go to the frame 
end 



r ^ 
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on mouseUp 
halt 

end: 
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on mouseUp 

go to. frame "upgrade 
end : 
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on mouseUp 

halt 
end 
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on mouseUp 

donamenumber 
end 



I 
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Movie Script TO 
on startmovie 

global grecordkeeper, PlusStatus, OddStatus, version, targetProStatus 
-r set ProStatus grecordkeeper, 2 

set targetProStatus == 2 . 

set PlusStatus = 1 --set to 0 otherwise 
set OddStatus = 1 if we check for odd or even 

set version = "10" 

r- :» 



erd 



on stopmovie 

if the runmode - "author" then 

put the' text of field " color - into 'field "name" 
put the text of field "color" into field "number" 

end if 

set the keydownscript . = " " , 

end ' , 

on checkdoname number 

if the key = RETURN then 

donamenumber . 
' dontPassEvent ." * 

end if 

if the key = ENTER then 
donamenumber 

dcr:tPassEvent "'' 

end if " ■ " 1 ■ . . - 

- - !* ■ * - 1 

W . . ' . • " . 

end . 

i - ■ ■ . ' 

\ _ . w ' 1 '» 

h * - ' 

on donamenumber 

global gr ecordkeeper , name , number . PlusStatus , OddStatus , version 
cursor 4 . ! 



put line 1 of field "name" into name 
put line 1 of field "number* into number 
put char 8+ PlusStatus of number into dashl 
put char 11+PlusStatus of number into dash2 
put "number = ■" & number Y 
put the number of chars of number into totalchars 

if PlusStatus =1 then 

if char 1 of number <> "9" then 
alertserial ■ 
exit . ■ 

end if ' ' 

- " ■ .*-■*.. * * .. . ' ' ' 

*. ■ * ■ " - 
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end if 



i f darhl and dash.2 <> " - t hen •• 

alertserial . 

exit s 
end if 

if totalchars < > 12 +plusStatus then 
alertserial 
exit . 

end if , • - • ; 

put char I of version into versionchai i 

put char 2 of version- into, vers ionchar.: 



if char \ 9 +plusF* jtus ) nipi:^r 
vers i one ha r 2 then , . 

alert serial 
• . exit . ; 

..end if - 



.••-! ^.ion-ha: 1 ,md "liar ( 10*plusSt a* \\t 



n '^mber • 



pu t cha r" 1 + p lusS.t a t us' of niihaber int « :-. 

put char : 2+plusStatus of number. /int./ .'* 

'set x = ' value (x) 1 

set y = value(y) 

set addnum - x + y '» ' ; . ' ' : - 

set addnum = value'! addnum).. . - '. . 

put addnum. mod ( 2 ) 

put addnum mod (2) into »xkiorV*Aen 

1 if oddoreven = OddStatus then / 
goj to .frame "upgrade" 

- - cursor 4 ... ' 
' setnamenumber grecordkeeper /. name . nuinbe : 

go to movie "da tat est" 

: ' ' ■ . ..." '■' ' • 

else . i t ' ' ' " " .:. ' ' 

alertserial - ' ' , 

end if ;■ -. .* '■ - '/ ' 



end . ■ ■ . . "■ . . . ■ 

on saVenameNum 

global grecordkeeper name* number , tai :jet ProStatus >' 
cursor 4 : - ; . f 

setProStatus (grecordkeeper, targetPrc Status ) • . 

setnamenumber grecordkeeper . "Cognitive Concept s ". target ProStatus 

-*' - . * « . , 

' ' • ■ - :- • .. . ■ t ■ : ; 

end ' • .- 



r. 



on alertserial 

cursor -1 . V 

alert •Incorrect serial number. Please enter it again 
put " " into field "number" 



end 
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.1 ... , . 



\ on findrecords 

global gDataSavePath 
; - - --open dialog, find application 

cursor 4 - . • ' * 

1 put.'"" into i i e Id * " r etu r rimes sage * 

put-"" into field " 1 e**i;t nva-lu.e" . 

set dnveList to Di i ver-T- -List ; ) 

r-rrt di iveName t ; get At. '. d:'.i veList / 



• if ' "di r ect.o.ivExists*- 
set d r i v eN< ime . t r • 



■ -t hen 
Earobics 



count (dri veList ) ) 

• - - PC . . •. 
) = 0 then- 



get; last d: ive name 



Ear obi cs " 



l i di : fctf'tyEx : % u 
.set' -ii iveName t- 



• 4. 



i r 



t J: : rv;t ■■ ryEx ii 
. set- i: iveK'Uno 
■vA .it . 



\ Ea r ob l cs \ Ea rps 1" i = . 0 
"c:\Earobics\Earpsi" . 

V :' \ Ea rob i cs>. Ea rp4 1;" 7 " ) =' 0 
v c : ' Ea r ob i cs \ Ea rp4 1 7 - • 



b: cs \ Earp4 _7:- ;) .= 0 
■b;icsVEa.n?4^7" ■ 



then 



t hen 



then 



e: :: vine 



. EXE" - : - "All 'Fi les - • . V Text Files / * ..t >:t. " 
K :' 1 • -. '■: ~:ir i'-.Yi -xj '. dr i veName . t ypeSt r, -'"'Open File". True . True) 



Jam* 
> 



- itiL,. .' 



«. d: iveNanve •'*- f - . 

- APPL TEXT:" :■ r - "TEXT / W6Bt 1 / 14V9 5 " ' 

* * j , 1 

Ei le v~i:Dialog vdr IveName . : typeStr ) 



•;~et ri.:e ,»geco ioi r he stagecolor 
^-jt int -.• f ield, "retuinvaiue" 



put retName into field " ret urnmessage* 
put 'ret: Name - " retNaxne 



text, word 6. director 5 



-Checks- to see i f file " records . est " exists 

.. . .- ■ . » 

put the number of chars of retname into TotalChars 

set del imeterNum =0 

if the machineType > 255 then - 

set del lmeter ' - "V" ■ 
e lse ' ,' ,-■ 

set delimeter = " : " ' :'• • ■ 

end if .; 
- - find the dr ivename 

repeat with x = 1 to tot^lchars • . 

if char x , of retname = delimeter then 

set drivedelimeter " ~ x - 
exit repeat ' . 

end if 

end repeat • \ 

put . "drivedel imete: - " i* drivedel i meter' 

set • checkDr iv.e ="'''' 4 ! - ' ' 

* i • * ' . i 

- 1 

' * ■ ■' ' . ■ : . 
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, . r. 



repeat with x = 1 to (drivedelimeter-1 ) , 
k pot char x of ret name after char x of checkdrive 
end repeat 

put "checkDrive =" & check-Drive 

se f realdr ive = 0 •-. •' . 

repeat with x in . Dr ivesTqList ( ) 

if x. = checkDt ive then. • : " - 

set . realdr iv- 1 / - ■ / :■ . 

end if. .... - 

\ . ' - , - ■ ^ 

end repeat, I . - - ■ 



if realdr ive = ;1 then 

repeat with x - total chars down ' to 1 
if char x of i etname = del imeter then 
set delimeterNum . - x ' 
exit repeat 

• end if. '- ' . . 

end repeat ' < . _ ..' " •• 

put del imeterNum • 



set' CurrDir ' = ""'-".: 

repeat with x = I to, delimeterNum / v 

put char, x of retName*' after char x of currdir 
end repeat ■■■■«' 
put "currdir : = " U currdir 

set retfiie to Fi leExist's ( currdir & "records .est ■ ) 

pit retfiie into field "re turnvalue" 

pit GetMessage( ret file) into f ield " returnmessage " 

--f ound f ile, copy default prefs 

■ - *• . ■ * 

,- - 

' * 1 , * 

' if retfiie = 0 then , . ;- . 

- -Change's gDataSavePath to new directory 

» ■ » . p - \ i 

• • ■ , . - ■■ 1 ' : 1 1 " ' 

■ put ' g Oat aSave Path into OGgDataSavePath 
"i put "CX^DataSavePath - . -icOGg Data Save Path 
set gDataSavePath = currdir 

* ■ * 

put getprostatus (grecordkeeper) into , UpgradePro . . • 

put "UpgradePro & UpgradePro 

--. reset ,gDataSavePath „; 

put OGgDataSavePath into gDataSavePath - 

put "gDataSavePath =" "& gDataSavePath 

close records grecordkeeper 



if UpgradePro = 1 then 
--copy files 

; set the filename of cast Lib "temp, est" 



records 



= currdir& r records . est" --sample open 



put the number of members of castlib "temp. est" into totalMem 
openrecords grecordkeeper 

duplicate member 1 of castlib "temp. est", member 1 of castlib "records .est" 
repeat with x = 11 to totalMem : ■ 

icate member x of castlib " temp . est member, x of castlib " records . est " 



end repeat 
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set the filename of castLib "temp. est" = the pathname & "temp. est" / 

: .«■■■. • • - .' - a ■ 

saverecords greeordkeeper , • * 

' closer ecbrds greeordkeeper ■ . . 

s a • .-eMamer Jum - .. • . « ' r t ' ■ ;\ „. 

cursor -1' • . - ■■' \" - '• .- \ '. .,' - 

alert "Import Successful ! Your data records have been - imported f rom Ear ob ires PRO 
to Earobics PRO PLUS. " .. . J ■ - , ; 

' cursor 4 : . '- ' 

~ " halt ■ ' ' • j .' ' * ■* ■ =' - . - '. - 

. go to movie "datatest* ' . • ' ' 

' . . ! -~ - end if • \ : ■ * .: . , \ \ ' • - ' • ' • • ' 



else : t . 

closerecords greeordkeeper 

cursor -1 * ' •• 

alert "Not a. valid Earobics PRO data records file 

end i f 'V ' ..- • •.. . s \ 



. else • ' • .. ■ - 

closerecords greeordkeeper 
cursor - 1 •'• -. , ». . -. 

•; : alert "Not a valid Earobics PRO data records file 

end if .'• .. ' * '• ' • . \ "; ■- 

else ; J'"" • , * ■ : V* . • 



1 ) 



end if 



end 



on delete * - ", . • ' ' ' . . - 

global gDataSavePath. 

set deleteValue to DeleteFi le (gDat a Save Path records .est " ) 
. put: de.leteValue into field " returnvaiue" . 
• ."put vietMessage (deleteValue) into, field "ret urrimessage" 
put deleteValue " > 



—end > ; .. ' : /-., \ . . - : - -•. 

r -on copy ■■ . , - '' ' ♦*• 

-- global gDataSavePath — . ; : 

-.- set copyVal to CopyFile ( "CCI : test : Earobics • PRO Step 1: records . est ", gDataSavePath & 

" records .est " ) ; 

put copyVal into field "returnvaiue" 
-- put GetMessage (copyVal ) ----into field "returnmessage" . 

-- put "copyVal -" & copyVal t 
-^end " . '>■: . ■ ' . ■■ . /' ' 



» ■ 

on GetMessage theNum , 
case theNum of ' " ■ , .* , •• \ 

0: set message to "successfuT completion" 

-1: set message to "General error of unknown origin" 

-5: set message to "File deletion failure". 

-6 : set message to "File rename failure " . * 
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to; 



-7- set message 
-'8 : set mes 
"-9": set message 

set message to 
set message to 
set message to 
set message to 
set message to 
set. message to 
set message to 
set message to 
set message to 
set message to 
set message to 
set .message to 
set message to 
set message to 
set message to 



-10: 
-11-; 

-12: 
-13: 
- 14 : 
■-15: 
-16: 
- 17 : 
-IS : 
-10: 
-40: 
-51:; 
-52:' 
-61: 
-210 



otherwise set message 



^ ^ File not found" 

sage to "Specified file is actually. a directory" 
essage to "File creation failure" * 4 
"File open failure" 
"File write failure" 
"File close failure" 
"File read failure" 

"Destination disk full- . 
r Directory not found" 

"Specified directory is actually a file" 
"Directory creation failure" ■ , 
"Could not delete specified directory" 

■ 

"Could not retrieve directory ID number" 
"Could not allocate memory for file copy" 
"Specified drive does not exist" - . , 

"Specified drive exists but is not mounted" 
"Specified drive is not a CD-ROM" . 
"New filename already exists or tw paths are different" 
to "unknown error code" .. 



end 



case 



Script of Cast Member12 



Score Script 13 



on'exitFiame * 

put ""into field "name" 

put "" into field "number" - 

set' the keydownscr ipt = "checkdo name number 

end 



Score Script 14 



on ex it Frame 

cursor - 1 

> 

end 
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Score Script! 5 



on exit Frame . . 

set the forecolor of member "agreement X ex 1 2 " = the forecolor of member - agreement 
color" -k 

-- set the backColor of member "agreement text 2" = the backcolor ot membei - agreement 

color" ' • ; 

set the stagecolor to the s 

end 



J. 



Score Script 16 



on, exitFraine 

go ,to the f rame 

> 

end 



Score Script 17 



on ex it Frame. 



--get last drive 



set driveList to DrivesToList ( ) 
. set- driveName to getAt (driveList , count (driveList ) ) 
if the machineType > 255 then . -\ .-- PC' _ . 

set driveName to : driveName u "\" , ; 

set typeStr to "All Files/ * /Text Files/* . txt " 

set retName to F i 1 eOpenD i a 1 og { dr i veName , " typeStr, "Open File-, True, True) 

else Mac 

set driveName to driveName U " : " 

set typeStr to "TEXT/W6BN/MV95" . -- text, word 6, director 5 documents 

set retName to Fi leOpenDia log (driveName, , typeStr ) 
end i f 



name 



: 7 



put into f ield "returnvalue" 

put retName into field " returnmessage" 

end — 
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1. -.■ 



Score. Script 18 



on exit Frame 



set retVal ' to CopyFi le ( f ield "f i 1 enamel " . f ield " f i lename2 " ) 

put retVal int o- t loici " i eturnvalue**. ; 

put GetMessaget rerVal) into field "returnme^aqe" ' 

end , •" ' ■ 



Score Script! 9 



i ti 4 • meuseUp 

" t indrecpi ds- 
end' 



Score Scnp(20 



oil exit Ft ame 

cursor' 7 1 
end ■ 



■ Score Scrip(22 

i 

on mouseUp 
£vavenameNiim 
go t o m(^vi e « " CVit at est 



* > j 



1 ': 
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Parent Scr;pt1:drum;ner 

• .-J .-. ; . • . •. . . . . . .. ; • 

, - t 

" * . ■ "-. 

—4/10/97 ... ■ . . . • • • ••. . ... ■ ' \. 

- aJded c* •lumanti ;t.g turn on nptesSpr.it e£ to try . to fix . . - ' , 1 
buy where notes come on' then go off * . • , 

► ■ i • t ; t ' * . ■ , - • w * " ■ 

* ' ' ■ ' m i ' m 

f t ' ' f'~ ■ »'#■■ ' ," 

pi operty .ancestor; myHandiers , playList , current Level , soundNum.UserHits, RoundScoreLis 
Property audioOn. interval, Game , a rmMember t i meOu tNum , drumsound, disableRePlayBut ton 
Property SkipYesOrNp ; ; . ' ••*•'; 

on x- --Public Handlers '/ . • , , 

' I 'm a separator . . ■,*;... 

end / * ' • 1 • \ ' 

• ■ " , . '->,.■■ « 

■ * ■ ■ " ' : . . > ' • . . 

on new me ' ' ' . . ' • 

. ■" , •• ■ ■ . ■ « * " 

global '..m^e Scorer, gLEDMarv - ' k/ . V-< *•• - ^ . 

set ancestor ■= gGameScqrer . . .; , ■ * . - ' . 

set.. myHandiers - 0 • * . . . ;. ■ i - • ' • 

. set myHandiers = GetMyHandlers (me) .• '■ ' 7,, ' . ^ 

::et Ganv* : i»dtTimSoi:nds ; - •* ' ; • "' *' - ■ «: / '-*•. 

ret g.LEDMan = -0 . : ' " ; : • • ■ ' /"■■_"■ • • ' 

' set gLEDI-lin = ,:>.^( r.cr ipt " LEDDi splay Manager " , 41,42) . ; ' '.' 

set up LED display object , • pa rams are the sprite nums . • . . . 

return nv ■• • ..*.-■■ • >■ v 

etui . r f ' • ' ■ ■' 

« :;etUpTv;:t me. Level; PrefList 

c i i oba 1 m'-'< 'undO;er V gNot er . • '.• - . • . : " , . • , 

. noceSpi if «'COn g^-ter ' - ; ■ 

. .*;et Cut i .-iit Level 1 level;; / - •; • " * '< .. . • 

•;et UpPl. ivList n^e \ • *■■ •' '. • ; ■' 

:*et soutiiLMum = .0 A ' ■ • ' . .*.» . . ' : ' • , . . 

..set .Timv- 'utNuiTi = 0 ' " '•" • ' . - - : " 

set driiin: .ovind - the men\i>?rNum of meml^er "drum" 
. pre loadm. Mrber driiinsoui-.d " •'• 

-'^et the : uigePr ioi i ty of inembei dr\jjnseund .j 0 

set- Roui^!^'pr-oL:.::'t. ( ] V . ' , ^ v 

set. Scoi .-Lisr. \ ( 0.0. 0] " . • " ■ . / • 

- s'etat . sc« 'reList .. ' 1 . cur rent Level . 
. . setat RoundScoreLi st . 1, scoreiist >< 

if cur rent Level . 3 then , ', 
' set auclioOn = false •' 

set; armMember = the Membernum - of' member "arm Wave" 
else .. 

set audi pOn ■= true '■ .. \' > ' 1 . v 

set armMember = the Mcrrbernum .of member ."arm down" 
. end if '- - 

PreLoadMember arrnMember 

set the purgepriority of member armMember = 1 
case (Cur rent Level) of . ; ' 

1,4.:, set Interval = 60 

2,5: set Interval = 30 « . / . . - 

3/6: set Interval = 15 . 
end case 

set gRoundOver = false * ' 

set disableRePlayBut ton =. .get At ( PrefList , 1 } . 
set SkipYesOrNo = getAt ( PrefList ,2 ) 

end ;• - f * "'- .* 

..■•'•! ■ . . : ' - *. 
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on Playsounds me 

global gRoundOver, gSoundsPlaying , gLEEMan 

if count (playList) < 1 then exit- 

set gSoundsPlaying = true. - 
' set soundNum - getat (PlayList , 1 ) . • 

set UserHits =. 0 -:■ ... 

' deleteat Playlist, 1 

repeat with x = 1 to soundNum 
puppet sound member drumsound 
upda test age 

repeat while soundBusy (1) % ■ v . 

■-. nothing " 

end repeat • ' ; ;/ . '. .'. * - 

if x - soundNum then exit repeat . . * 

• wait interval • • 
end repeat* - ' 

StartUserDrumTime ,300, ; CheckUserHits gGame" ', . 

startLEDDisplay gLEEMan, ,300 — .. start LED timer display 

if count (playList) < 1 then set gRoundOver = true. 
. puppet sound 0. 

set gSoundsPlaying = false * , 

, put soundNum • , y 

end 

* ** ' * * 

on Repeat Sounds me * . .-. 

.global. gLEDMan ■ ■■ r '\ ' • ' 

ClearLEDDi splay. gLEDMan ' '*., ..,//.. ' ■ ' - ■ , 
repeat wi th x .1 to soundNum ■ 
puppet sound member drumsound 
upda t es t age • : . 

repeat '.while soundBusy. { 1 ) ; * 
' . , nothing :. 
. end repeat '/[•: ..' , . ' 

vif x = soundNum then exit repeat 
wait interval • : ... • 

■•■ end repeat . ' \ , • , • . •/ , 

StartUserDrumTime { 300. "CheckUserHi ts gGame " ) 

• startLEDDisplay gLEDMan , 300 --start LED timer display 
- puppet sound .0 ... 

end ! ' ' " 

on userDrumHit me - ; r , ' ' 

global gLEDman . 

• global gArmSprite 
set timeOutNum = 0 

set UserHits = userHits . + 1 

set the member of sprite gArmsprite = member armMember 
updates tage . 
'putUpNote UserHits .. ; 

: wait 4 ■ • ■ ; • ■ • ' * •'. 

-- put userHits- 
if userHits > soundNum then 

doWrongScore me, Hover 
else ; " • 

• if AudioOn • then • . , ' 
puppe t sound member drumsound 
updatestage 

set the member of sprite gArmsprite; = member "Arm up 
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updates tage 

repeat while soundBusy(l) ■ £ 

. • UpDa t e LEDD i s p 1 ay ; g LETXnan 
end repeat 

set the member of sprite gArmsprite member "Arm up 

updatestage • . « ' . 

puppet sound 0 
end if J ' - 



end 



on xx-r ------Private Handlers--------—-, . 

i*m a separator . i 

end .' . ' • •' " ' • '•■ • 

on unLoadSounds me " • . ■ 

• -- this almost inert script needs to. be here to be 
-t in compliance with the' three other game scripts. 

The command is issued from the score and 
-- doesn't really matter to this game \ & 
-- however the game will crash without it. 
■ set the purgePriority of member drumsound - 1 •. 
end ■ •' . - ; - 



■v 



!on setUpPlayList me 

priv. .". ■ a 

sets Up list of ten values from 1 to 4 
randomly- distributed but with ho more than 
> two same number beats in a row 

set PlayList : = { ] 
set BeatNumList = [1.2.3.4] 
set BeatNums = Count ( beat NumListl 
: repeat while count (play list ) < 10.. 
set x = count (PlayList ) • ' 
< set beats = ,getat (beatNumList . random (BeatNums) J 

if x > 1 then ' 

set Bl = getat (PlayList, x-D- 
set B2 = getat (playList, x) , 

if beats = bl and beats = b2 then next repeat 

end if , • ' 

append playlist . beats 
end repeat • - 

put playList , 
end 



on xxx ----Testing Handlers 

-- i'm a separator 

nothing 1 
end 
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on showHandlers roe 

-- Testing ' ■ 

-- puts list of handlers in message window 
; put myHandle s . * ■ ' - . ' 

end • ■ ' . ■; 

•i 

' : < • - • • ... 

on showProps me •. 

testing - / 
;-- puts list of properties and their current values in message window 
set PropNum - count (me) 
repeat with x ■ = 1 to PropNum 
set prop = 0 

set thisProp. = getpropat (me, x) 

if thisProp - #myHandlers then next repeat 

put (string (getpropat (me. xj ) ) get a Prop( me, this Prop) into prop 

put prop ';■ 

end repeat . ; : ; . • 

end ' ' • j- - - . 

:>. . " . _ . . . y • ■ .... _ i 



> 




APPENDIX A-94 



Parent Script2:fsoSound 
—4/10/97 

-.- added command to turn on notesSprites to try to fix 
bug where notes come on then go off 

-- changed purge Priority in pre 1 oadSounds handler .from 1 to 0 

■ *. * - • 

property ancestor, myHandlers, playList , currentLevel , SoundNum, UserHits , RoundScoreList 
Property audioOn, interval, shortVowelList , LorigVowelList , consonantList ListToPlay 
game 

property armMember, TimeOutNum, badWordList , disableRePlayButton, SkipYesOrNo 

■ on xr-- --Public Handlers - . ' . , 

. . I'm a separator .' 
■end- ;■ . 

. ' • : "■ • ■ . .. ' ■.; ...... ■ . : . . T; 

on new me 

pub. . \ - . • 

global gGameScorer ,igLEI>Ian .• 
. , set ancestor = gGameScorer 1 
set myHandlers = 0 

set myHandlers = GetMyHandlers ( me) 

setUpSoundLists me , -. . ' ' 

setUpBadWprdLi'st me ' 1 

set game = #IsoS6unds 
, set g.LEDMan > - 0 . \ "• 

set gLEDMan = new (script "LEDDisplayManager " 41. 42) 

— set up LED display object ,:_ pa rams are the sprite nums 
- return me \ ' 

' end . \ • ; ' \ ;' . , 

' '. r . • • 

. > ' * ■ 

, on SetUpTest me, Level. PrefList 
global gRoundOver , gNoter 

noteSpritesOn gNoter ■, 
set CurrentLevel = level * *■ ' ■ ; 1 

setUpPlayList me 
set SoundNum = 0 

set TimeOutNum = 0 ' , . • 

set ListToPlay - () f 
set RoundScoreList = {] 
set ScoreList = [0,0,0] 
setae scoreList,. 1 , currentLevel 
setat RoundScoreList 1, scorelist 
if currentLevel > 9 then 
set audioOn = false 

set armMember = the Membernum of member "arm wave" 
else • ' ■ 

set audioOn = true 

set armMember = the Membernum of member "arm down" 

end if .- ' : 

PreLoadMember armMember V- 

set the purgepriority of member armMember =1 
case (CurrentLevel) of 

7.10:.. set Interval = 60 ' \ : 

■ .8,11: set Interval = 30 : " 

9,12: set: Interval - 15. 
end case - - 

set gRoundOver "= false ' . 
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set disableRePlayButton = getAt (PrefList , 1) 
set SkipYesOrNo " = getAt (Pref List, 2 j 

end • • \ 

oh Pi ay Sounds me - : 

global gRoundOver,/ . gSounds Playing , gLEDMan 
. if count (playList ), < 1 then exit 
set gSounds Playing true ; . ' > . • 

set ListtoPlay = getat (PlayList , X) ;/■ 
pr e 1 oads ounds (me,' listtoplay) 
set UserHits - 0 • \- ■ 

deleteat Play list , 1 

set SoundNum = count ( lis tTo Play) 

repeat with x ,- 1 to SoundNum , " "■• ; 

set sound; getat (listToPlay, x ) 

puppet sound r. bund . 1 ' j ... 

., : upda test age - : 

repeat while soundBusy! 1) 
\- nothing > ' \ " ' 

end repeat. ■• * . 

•: if x = SoundNum then exit repeat .. ... . ' 

* i wait interval 
end. repeat ■ ! 
StartUserbrrjinTime 300V ' "CheckUserHits gGame" 
start LEDD l sp lay gLEDMan, 300 --' start LED timer display 
if count {playList ) ; <\ 1 then' set gRoundOvei •= true ' ' . y 
repeat while soundBusy { 1 ). 
- . nothing .;. • . - « ' « • , ■ 

end repeat ' ^ . . 

„ set gS>ounds Playing - false t - r '•■ ■ ■[ ' , 

puppet-sound 0 < '■ •' 

end ! •. •• ■ > • ' • 

* _ . * ■ . • 

on Rep*-. it -bounds' Me . - • . ... . **' ' \ 

global gLEDMan ," : • t \ 

-- ClearLEDDisplay gLEDMan : ./• '• 

set SoundNum = count ( 1 istToPlay ) ■ ">. .- . ■ ; 

repeat with x = .1 to SoundNum * . . " •. 

set' sound - getat ( i istToPlay; x) - .: 
1 puppet sound sound • . 

* » , • 

• upda test age ' v \ 

repeat while soundBusy ( 1 ) . 

nothing" • j 

end repeat - : ••' 

• if "x- = SoundNum then exit repeat, . . - : 

wait interval s 
end repeat- 

StartUserDrumTime 300, " Ghee kUserH its gGame" 
startLEDDisplay gLEDMan, 300 — • start LED timer display 
puppet sound. 0 , . . 

end 



on userDrumHit me - r ■ 

global ' gArmSpr it e, gLEDman. , 
.set timeOutNum "= 0 
set UserHits = userHits * 1 

set the member of sprite gArmsprite = member armMember 
upda test age : ; ; . ' . • ' 

putUpNote UserHits 
wait 4 
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if userHits > SoundNum then . . , . /' v 

doWrongScore me, lover •;. :> * . . ~ r"' : '*j v ; 
• else '■ • ' 

. if AudioOn then . . : ' 

set sound = getat ( 1 istToPlay, userHits) ••• - 
puppet sound sound . /" , , • 

updatestage 1 ■■ , < " . . 

set the member of sprite gAnnsprite - nw-inber "Arm up 
.updatestage -» • ; ' ' ■ 

repeat while soundBusy(i) 
... UpDa t eLEDDi sp i ay gLEEman .;■ 
end' repeat 
/ '\* puppet sound 0 ,. ■ . - 
" end if . , ' 

end, if .' . . : ' . ■ 

set the." member "'of ,kf*r"i te. .gAjTu*;pr'i Ce"\ s merri.vr "Aim up* 
updatestage ' .• - • "..' 

end. ... • ■ : . • ... • •. • 



on xx- — --- r Private Handlers- 



. - 7 1 * m- a 
end ' : . 
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on pre loadSounds me/' Lis tOf Sounds .;' 
repeat with thesouhd in listOf Sounds 
preLoadKember > theSound 
put the result 

set the purgePrior ity of member theSound to 0 
end repeat ';< ' .-: 

end' ' v - ' . ... - "■*■ ■ . • 



on unloadSounds me 

1 f voidP( list ToPlay) or 1 istToPlay." = {} then exit : *' 
repeat with rhesound in 1 istToPlay 

vmloadMember theSound ; ' .< 

.set the purgePrior ity of;. member theSound to \ 
end repea t , ' " . • : : ' ••• . ' J/- 

end . , ■ 



on setUpSoundL/ists me . » 

pq : t:- ',- looking for missing sounds from IsoSound game" 
set. ShortVowelList = [ ] 

set x - the number of lines of field "shortVowels" 
repeat with y =1 to x 

append ShortVowelList . line y of field "short Vowels" - 
if the number of member line y of field "shortVowels" = -1 then 
put line y of field "shortVowels" .&& "is missing" 
next repeat *■ ■ < 

end if • . ' 

append ShortVowelList , line y of field "shortVowels" 
end repeat ; ... 

set Long Vowe 1 L i s t = '[.]■ . ,.' 

set x = the number of lines of field "LongVowels " 
repeat- with y - 1 to x : , • 

* append Long Vowel List , line' . >f field "LongVowels^ 

if the number of member line .y of field "LongVowels" = - 1^ then 
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put line y of field -LdngVowels " ?ls missing" 
next repeat 
'. end if • 

append LongVowelList . line y of field "LongVowels" 
end repeat 

set consonant Li st =[■]'. 

~ .... .* *■* .' 

set x = the number of lines of field "consonants" 
repeat with y = 1 to x 

append consonantList , line y of field "consonants" 
if the number of member line y of field "consonants" = -1 then 
put line y of field "consonants" "is missing" 
next repeat 
end if . 

append consonantList , line y of field "consonants" 
end repeat , 
put "done looking' r 

end ■ • 

on setUpPlayList me 

priv. . • , ' * 

--■ sets up playlist with no sound repeating 
--more than twice in a row 
set PlayList = [] '■ • ■. 
set BeatNumList = [1,2,3,4] 

set BeatNums = Count (beatNumList ) ' 
repeat while count (playlist ) < 10 . * " 

.set x = count (PlayList ) 

set beats = getat (beatNumList, random (BeatNums) ) 
if x > 1 then 

set. Bl = getat (PlayList , x-lj 

set B2 = getat (playList, x) 

if beats = bl and beats = b2 then next repeat 
end if 

append playlist, beats - 

j ■ , ----- ^ . 

end repeat • - . 

. repeat with x = 1 to 10 ' 
set TempList = ['] 

set NumSounds = (getat (pLayList, x) ) 
set tryAgai a = false ; ; 
repeat while tryAGain = true or not Lis tP (getat (pLayList, x) ) 
-- if tempList that results from next repeat is a tabu list 

or if we hayen ' t converted this position of playlist yet .„ 
-- from beats (integer) to a list men we keep trying 
repeat with y - 1 to numSounds 
' set soundList = random (4) 

case (soundList) of ■ " ' 

l :set ListCount = count (LongVowel List ) 

append tempi is t, getat ( longVowelList , random (lis tCouri t ) ) 
2 : set ListCount = count { short Vowel List ) 

append templist, getat (shortVowelList, random (lis tCount ) ) 
3,4: set ListCount = count (consonantList ) 

append templist, getat (consonantList ; random (lis tCount ) ) 
end' ' vse 

end rep at - 
if checi^ForBadWords (me, tempList) then 

put templist 

set try Again = true 
else .. ' ; 

.setat playList, x, tempList 

set tryAgain - false 
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• if . : ' ; .'. - 

. end repeat - 
end repeat 
put playList 

put count (playList ) , ^ 

end ' ' • 

on checkForBadWords me, listToCheck 

— function checks list of random sounds 
--generated by play list handler against list 
--of list of naughty words . 

returns 1 if bad word is found/ 
set isBad =0 

set x = count (badwordLrist ) 

repeat with y = 1 to x ' 

if getat (badwordList ,y) = listToCheck then 
set isBad =1 
return isBad 
end if ' - ■■■ . 

end repeat 
return isbad 
end ' ; 

on setUpBadWordList me ; 
sets property badwordList by referring to 
-- cast member "badWords" which contains 
-- line by line list of tabu combinations 

set BadwordList = [) ; " 
set nuMlines = the number of lines of field "badWords" ' 
, repeat with x = 1 to numLines 

if numLines = " " then next repeat 

set tempList = [] 

set numWords .= the number of words in line x of field "badWords" 
repeat with y = 1 to nunrwords 

append templist , word y of line x of field "badWords" 
end repeat 
\ append badwordList, templist 
end repeat 
end - " '• . 



on oldsetUpPlayList me 
' priv. 

sets up playlist with no sound repeating 
- - more than twice in a row 
set PlayList = [] 
set BeatNumList. = [1,2/3,4] 
set BeatNums =■ Count (beatNumList ) 
repeat while count (playlist ) < 10 
set x = count (PlayList) 

set beats = . getat (beatNumList, random ( BeatNums ) ) 
if x > 1 then 

set Bl = getat (PlayList, x-1) 
•set B2 = getat (playList, x) 

if beats bl and beats .= b2 then next repeat 

end if \ 

■ . ■ ■ • ■. ■ ..,*.■- 

append playlist, beats * 

' • ' ' i 

" ' - * '. " \ - • ' * ; 
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end repeat /' \ . ;•. • 

repeat' with x =1 to 10. . ■ 

' set TempList = [] ■ .. : , 

•set NiimSounds -. (getat (pLayList,x) ) • - r 
set soundList = random ( 3 ) 

ease' (soundList) of ... : .* \ ■' \ ■ 

'■ 1 : set ListCount. = count (LongVowelList ) ' \ : ' 

• 'repeat with y =1 to numSpunds "v . % - ' 

■ append -tempi is t , . getat- ( longVowel'List ; • random ( lis tCount ) ) 
- • end. repeat ■ ' , . 'V 

"2 : set ListCount = count (shortVowelL is t ) ' 

• • » • * • . . .;■ . . , • . . • . _ ■ 

repeat with y = 1 to numSounds 

append tempi is t, getat (short Vowel List , random ( lis tCount ); ) 
■ * ./ end repeat ' ' _ : r \ '. ■•" ' 

3 : set ListCount = count (consonantList) . - : 

repeat with y = 1. to numSounds •-" . . ',■ 

: append tempiist , getat ( consonant Lis t # ' random ( 1 is tCount ) ) ... 
end 'repeat ; 
. end case * - • ' " > 

setat playList. x. .tempList , 
end repeat " • •■ -./-'--'' ■'■ ■ • . 

put playList . • '' 

end ' •"• ' • / . ■■*•*: . «•■'., • .. - ; ' 



on xxx-- -- Testing Handler j-- ~~~~ : r- '■' . . ' •. 

. -~ i'm a separator - ". - ■■ " ' . ' \ . " . 

* nothing , . " •' _- J v > ,: . ' \ ; :; ' .-' 

end : ' ■ * : . .. . ••' ; ' ' 

on showHandlers me . » . V . . - . 

Testing •• •■ • ■ • ' : . . . ' ; ", . . 

--.puts list of handlers in message window - 
. put my Handlers; '• 1' • , '' J ... J. ' : - 

end . ; . ' , . y ' ' , • ' '. ■ • • ' * t . • . 

. ' • . i ' ' • ' ' ' . ■ . 

- • r . 

• t- ■ - ' ' * ' 

i ~ • 4 . ' . ■ 

on showProps me - . . : .» . - . •* 

-- testing • . ; " .' . ' 

puts 1 ict of .properties and •• their current values in message Window , . : 
set PropNum "= - count (me) • ' y ■ ., •_. "• 

repeat" with x = 1 to PropNum ' ... • 

set prop = 0 ... ; • 

.•set thisProp = getpropat (me, \x) - 

• if thisProp ~ ^myHandlers then next repeat 

'put .{string, (getpropat (me, x) ) ) hcU'- m UU get a Prop. (me, thisProp) into prop T 

put prop •" .. - •• *" ; : J ' \ h 

end repeat. ' -• ■ * > -• , 

end ' ■ ' 
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Parent Script3;syHables / \ 

i< ... - •, >.. - . - 

' — 4/10/97 - ]'\ ' : - 

--added command to turn on notesSprites to try to, fix 
bug where notes come on then go off • •;, . 

changed purge Priority in preloadSounds handler from 1 to G 

property ancestor , myHandlers , playList, currentLevel, SoundNum, UserHits RoundScoreL 
Property audi pOn, interval, OneSylWordList , . TwoSylWprdList , ThreeSylWordList , 
FourSylWordList 

Property wordToPlay, game," par tList, wordparts ■, 
property armMember, TiiioOutNum, disableRePlayBut ton , SkipYesOrNo 

. * ' t ' ' ' ■ - f A* 

on x--- ---Public Handlers 

.--•I'm a separator - V, 

end L - " - : ■ ' ■ , ■" 

, - t : 

on new me 1 
;-- pub. • " • 

global - .gGameScorer, gLEDMan 

set ancestor = gGameScorer : - 

.set myHandlers = .0 ". • 

.set myHandlers = GetMyHandlers (me) / / >: ;~ ■ 

■ ; set game =■ # syllables ' . \ . . - 

set gLEDMan" = ' G . . : : 

set gLEEMan - new (script " LEpDisplayMahager " , 41 , 42 ) " 
, set up LED display object, params are the- sprite nums- 

return me' . a . . • ■• . \ 

'•'.*>. • . » . ■ ■ ■ • _ _ , , ■ 

end ■ : , ' " ■ "■ ' .' . ' 

• ■ . .• ■ . . 

■ " ■' ■ -.' ' . . ■ ■ ■ . ■_; • - 

■ i. , • • ' _ . . ■ • ■ i ■ 

on, SetUpTest me, Level , Pre f List 

• global gRoundGver , gNoter 
noteSpritesOn gNoter 1 ■ > : "v ; m \ 
set CurrentLevel = level \ :■.. .<. 

• setUpWordLists me * . 

setUpPlayList me ' ' ■ 

. .- set SoundNum = 0 * 

set TimeOutNum ' = 0 . V . ■ : - ' 

' ■ set wordToPlay = 0 . ; 

set wordParts = ".['] \, : . '. ; >. ■; 

set RoundScoreL'ist = [ ] " * ... ■ : ' 

set "ScpreList '= [0, 0/0] V ^ , ; V < 

setat scoreList, 1 , currentLevel' 

setat RoundScpreList 1 , scorelist 

if currentLevel = 14 then 

. set ; a'udioOn = false * . ' • "' . 

• ■ . - • • ... .. » • -. ■ ■ • • t 

set armMember - the- Membernum of member "arm wave" 
else ' - : . ■ ' ■ ' . 

■set audioOn '= true:' ' 

set arrrWember = the Membernuin of member "arm down" 
end if . • : ' ' • ' 

♦ PreLoadMember armMember • 
set the purgepriority of member armMember = 1 v , 
set interval =. 30- --??.???? . : ;" . 
set gRoundOver = false 

set disableRePlayBut ton - getAt ( Pref List , 1 ) 
set SkipYesOrNo = getAt ( Pref List , 2 ) -. 

end , . ' - . . ■■ ■■' 



APPENDIX A-101 



on PlaySounds me 

global gRoundOver, gSouhds Playing , gLEEMan 
if count (playList) < 1 then exit 
set gSouncis Pi ay ing ■= true- 
set WordtoPlay = getat (PlayList, 1) 
set WordParts. = getat (partList # 'l) '• ' 

prel^adSounds me . ' - . 

set SoundNum = count (wbrdParts) •■ 
set UserHits = 0 , r / 
deleteat Playlist, 1 ... - *■ . 

deleteat partlist, 1 . " r ' 

p - m * w 

•■ ■ ".*•■** ■ 

. • * , ■-■ • . . ■ * • - 

. ' .'• " • i - * - •; . ■ . •' - . . '/ . .*■."' = 

puppet sound member wordToPlay 
put the name of member wordToPlay 

* updates t age 
repeat \^ile s6un6^usy(l) : 

. nothing >• 
end repeat' 

StartUserDrumTime 300, "CheckUserHits gGame • 
start I.FPDi sp lay gLEDMan, 300 -- start LED timer display,, 
if count (playList ) < 1 then set gRcundOver .= true 
set gSounds P 1 ay ing false . ... 

pupr>et ; sound 0 -. v ;. " • * 

end : . , • •;' ' ' , ' " 1 .' « 

' • ' - ' ■ • . ; ' • " ■ ' - '■■ .. ■ " ' ,:; ' . . -y; •. • ' . 
. on Repea t Sounds me \ * *'?• ' • 

global .gLEEMan • / . - 1 

' ClearLEDDisplay gLEEMan ; 

. puppet sound member wordToPlay ' . 

: put the name of member wordToPlay / 

updatestage ' ,. t • \: . 

. repeat; vyhile soundBusy (1) 

\. nothing; 

end repeat • .. . 

StartUserDrumTime 300,' 'CheckUserHits gGame" 

star t LEDDi sp 1 ay gLEEMan, 300 --' start LED timer display 

puppet sound 0 '.' 

• end ..(,'•.,• : ■«• 

, , • <• '. ' . \ '■. ' •' : '■-■:>: '/•.,'• ■ ' ' • -' . • • • 

on userDrumHit me - 

global gLJSEfcnan /*—'•. " - ' ■ 

global gArmSpr it e : f "'• . 
set timeOutNum = 0 

set UserHits -•' userHits ■ 1 - ■'. '.; » ' - 

set the member of sprite gArmsprite = member armMember- 
updatestage ' " *' . • 

putUpNote UserHits 

• Wriit 4. ■, - *. . 4 

■ ■ . * . • . ■ ■ ■ 

. If userHits > SoundNum then '. 

doWrongScore me, #over ' 

' else ■• /" • . . : . . • • ' ' " 

: if AudioOn then v .* * : . • 

set sound = getat (wbrdParts, userHits) 
puppet sound member sound 
put the name of member sound:, 
updatestage 

set the member of .sprite gArmsprite = member "Arm up 
updatestage V . , . 
repeat while sbundBusy(l) • V. ; 

UpDateLEDDisplay gLEDman 

* . %. , 

... - ' " 

\ ■ ■ '• . ■ : '' '•' - . • ; • : . ' ' • 
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end repeat . 
end if : . ,• - ; : • \ • • 

set the. member of sprite gArmsprite = member 'Arm up" 
updates tage - 
; . puppet sound. 0 
end if 

end . . 

on XX— — -- -Private Handlers---------- '< 

• j — - i:* m a . separator , ' "\v • 

end 

on - preLoadSounds me •; 

if vpidP {wordToPlay ) or wprdToPlay = 0 then exit , 

preloadMember WordtoPlay 

put the result . \v 

set the purgePribrity of member WordtoPlay = 0 

repeat" with theSound in .wordParts ' * 

■\. preloadMember theSound. - * . • . . • 

put the result 
. set the purgePriority of member theSound = 0 
end repeat ■* . 

end • ; • /' "' • ' ' / - ; * • ,.. :.- " P . '. 

on UnlxDadSpunds me l >.~ / . 

if voidP(wordToPlay) or wordToPlay = 0 then exit 
unloadMember WordtoPlay 

set the purgePriority of "member WordtoPlay = 3 
repeat with theSound in wordParts 
'. unloadMember theSound 

set the purgePriority of member theSound = 3 ♦ 
end repeat • * - 

end . - , ' ^ - -v- 

«- - . 

> 1 ■ - • ■ 

oh setUpwordLists me • ;\ 
set oneSylwordList = [ ] 

set x = the number of . lines of field "iSylWords" v 
* repeat with y = 1 to x ; r " '• 

append oneSylwordList, line y of field • ISylWords " 
end repeat : '. . 

set twoSylwordList = [] 

set x = the number of lines of field ^SylWdrdis" 
repeat with y = 1 to x 

append twoSylwordList , line y of field "2SylWords" 
end repeat - T ' 

set threeSylwordList ='[],. 

set x = the number of % lines of field "3SylWords" 
, _epeat with y = 1 to x 

append threeSylwordList, line y of field "3SylWords" 

end repeat. /" - ' . : : ' 

set f ourSylwordList = [] . / '* ; 

set x = the number of lines of field MSylWords" - > 
repeat with .y ' - 1 . to x , 

append f ourSylwordList , line y of field MSylWords" 
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end repeat 
end 



on setUpPlayList me • • : 1 

« priv. ; 
— sets up playiist with no sound repeating 

more than twice in a row and no more than 3 of each sound permitted 
set PlayList >. [] ", , 
set PartList =[] - 
set BeatNumList = [1,2,3/4] 
set BeatNums = Count (beatNumList ) 
set ones = 0 • , 
set twos s 0 

set threes = 0 , ■ . f 

set. fours = 0 . , 
repeat while count (playiist) < 10 

set x = count (PlayList) . 
set beats = get at (beatNumList, random ( BeatMums ) ) : 
if x > 1 then ; - 4> 

set Bl . = getat (PlayList , . x- 1 ) -„ . ■ - 

set B2 =• getat (playList, x) 

if beats = bl and beats = b2 then next repeat 
end if 

case (beats) of 

X- : set ones ■== ones + 1 
. if ones > 3 then next repeat 
2: set twos = twos +1 

if twos > 3 then next repeat 
3: set .threes = threes + 1 

" if threes. > 3 then next repeat , 
4: set fours = fours +1 : 1 

if fours > 3 then next repeat 
end case 

append playiist, beats 
end repeat 

• put playiist • ' ' . 

* v . - * . 

repeat with x = 1 to 10 

set numSyls = getat (playiist , x) . ; 
case (numsyls) of _ *' ; 

1: set listPos = random (count (OneSylWordList) ) 
set theWord - getat (OneSylWordList , listPos) 
: deleteAt OneSylWordList, listPos 

set TheSound = the number of member theword of castlib * lsylwrds . est " 
set TheParts = [] 

append theParts the number of member theword of castlib " lsylwrds . est 

■ * ■ 

2: set listPos = random ( count ( twoSylWordLis t ) ) 
set theWord = getat ( twoSylWordLis t , listPos) 
deleteAt twoSylWordLis t, listPos 

set TheSound = the number of member theword of castlib "mSylwrds.cs t" 
set TheParts = [ ] 

repeat with z = 1 to 2 . ' 
set Part = word z of theword 

append theParts, the number of member part of castlib "mSylwrds . est 
end repeat 
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3: set listPos = random (count ( threeSylWordList ) ) 
set theWord = ge tat (ThreeSylWordList , listPos) 
deleteAt ThreeSylWordList , listPos 

set TheSound = the number of member theword of cast lib "mSylwrds . est " 
set TheParts = [] 
, repeat with z = 1 to 3 •; 
set Part = word z of. theword 

append theParts, the number of member part of castlib "mSylwrds . est 
end repeat 

4 : set listPos = random ( count ( f ourSylWordList ) ) 
set theWord = getat (FourSylWprdList , listPos) 
deleteAt FourSylWordList , listPos 

set TheSound = the number' of member' theword of castlib "mSylwrds . est " 
set TheParts = [] 
. repeat with ?. = 1 to 4 

set Part -word z of theword. 

append theParts, the number of member part of castlib "mSylwrds .est 
end repeat 

. end case !, ~ ; * ' ■■' 

• setat playList, x, thesound 
append part list, theParts , : ; 

end repeat 

end . .•' . : •', . .• . 

" . 1 ■ * 

*. , - TV- , ■ ..** 

, - '. \ ' • 

» ■ . " ~> . • . . - I 

- ; - ' K • • - 

^ - - ' . ' * . , •'. 

- • . ' . . '•* ' . '"' 1 -■ ■ . • . 

on xxx- — Testing Handlers - — _ 

-r- i'm a separator - 
nothing 

end' ' ■' : 1 < 

' . ■ - ■ * ' ' ■ i 

i - - ■ - . . . ^ - » i 

■ * 

on showHandlers me 
Testing 

— puts' list of handlers in message window ... 
put myHandlers 

end ; ' . : . ( . / 

on showProps me 
-r- testing 

puts list of properties and their current values in message window 
set PropNum s = count (me) 
repeat with x =1 to PropNum 
set prop = 0 

set this Prop = getpropat (me, x). , 
if this Prop = #myHandlers then next repeat 

put (string (getpropat (me, x) ) ) get aPropf me, this Prop) into prop 

put prop '-, 
end repeat 
end 

on TestWordList me, whichField, startwhere 

~- plays all words in a "sound name" field and attempts to play all 

- the word parts' of that field, if it brings up. and 
--■error alert you no something is wrong with that word or 
-- its word parts . ; , 

if whichField = "lsylwords" "then 
set castLihName = "lsylwrds . pst ' \ 

- * ■ - . i . , 

j .' » - - * 
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else ' ' ' ■ ■■ • ' V : 7,.';' ■"" 

set castLibname = "mSylwrds . est " 

end if •' ... . ; . . ' • ; • v /..«.' . - . 

• if voidP (startwhere) ;then { . -, ; ' .,../ '. 1 ; ; , 

-' ' set y = 1 .■ : • •,' ■ : -\ ' " • ; : ■ ' ■ - • 

else ' ;, ' . ;; •' . •' M . 

set y = startwhere ..." %: . . 

end if • _ • / '• .. \- 

set numlines the .number of lines of • field whiehField 
repeat with x .'= y to numlines 

set thesound =.line x of. field whiehField 

set wordNum = the number of words in thesound 

put x. &5cquote&cthesound& quote && "memberNum" the membemum of member thesound of 
castLib castLibname ' . v • ' v , , . '. 

'set Sound = .. the number of member thesound. of castLib castLibname 

. puppe t s ound member sound " : ', . . '. ■ * 

, updates t age v . ■ ' '< , . ;'" - . ■ 

'repeat- while soundbusy (1) , • ■ " . 

nothing - '.< , ' \ , '♦• 

. . . , - t ...... . 4 - . 

end repeat . ; •. . v . . • • ■ .. 

" : repeat with 2 = 1 .to wordNum ; . , . J 

set soundpart = word 'z , of thesound 

- put. soundpart -.' - . ' 

• set soundpart = the number of member soundpart of cast! ib • cast libname ! 

puppet sound member soundpart * 1 

.upda test age '- -" , ■ ;. /' • • ' r ' - 

repeat while soundbusy ( 1 ) '.. -:\ ' - V ;• « 

' • : .. ..- ..'.nothing'/ ; , - ., ■" 

'..end. repeat * .' . • • , . ' ^ : ' 1 . '• , : • • ".. . 

end repeat ■'■ • . *' ; ? 

end repeat '. * ... 

end.' , \ /" ■ 1 '" I , ' • • : . ?: . t ; ' ' • ' 

on FindMissingSoundsandSegments me * ' - ' ) . 

-- tests all sounds from the sylword lists - .. • •*! 

and looks for all parts pf, those sounds . ... 

if parts are missing , posts info to the message window . , • 

put "looking for missing sounds from Syllables, game*" . . • 

setUpwordLists me ' ■ , ■ f : 

repeat with theWord in oneSylwordList • ' T 
if. the . : number of member theword = -i then . 
•put theword '&& "is missing" . 
■end if : - •' ' . ■ ; " ■;. "• ', - ' . : 

' repeat with y = 1 to 1 . ^ ; \ ... • .' ~ • ' * 

s.et thePart =' word . y of theword 
if the number of member thepart = -1 then 
put thePart "of theWord&&" is. missing" 

/; end if . ■ ' . • . " 

' : end* repeat ' : . , . - * 

r end repeat ' \ - •• ■ • 

repeat with theWord in twoSylwordList ' : ■ f . . . •*■ 

if the number of member theword. =~"-l then. ' : ; . " ■ . 

put theword && "is missing" \ . 

end if- 

repeat with,,y =1 to .2 • 
4 Set thePar,t = word y of theword ■ . ' v 

. /if the number of member thepart . = -1 then 

put thePart "of"&& theWord&&"is /missing* ' : 

j , . \ , . . . ■ , 

... * -.. : ■ 

■ . ' * ■ ■ • . ■■'■■.■*.•'■' • ; - : •' ; . ■ 
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ena if • •. , • '. 

end repeat 

end repeat . • - .. . " 

• -. 

repeat 'with theWord in three Sy IwordLi s t .' 
if the number of member theword * = - 1. then 
pat theword &&."is missing • 

' end if v ■ - 

% repeat with y = 1 to 3 

set thePaft =r word y of theword 
if the number of member .'thepart = -OL then 
put ' thePart "of "&& theWord&& ,, 'is missing" 
■ end- if .. ' 

end repeat . ; 
, end repeat ■ 

repeat with ...theWord in f our Sy IwordLi st : 
if the number of member theword = -1 then 
put theword. "is missing" ' ■ : , 

end if , * ... 
repeat . with y ' = 1 to 4 
. • set thePart = word y of theword • 

if the number of member thepart = - 1 .then . 
put .thePart. '£& "of theWord&&" is ..missind" 
' ' ■ end if " * \ ' . :/ f : . 
end repea c '.„..•'■' ;- ' 
end repeat ?. v . 

put .."done looking " '] -.' 

return- 1 .' v . ' * 

end : ' ••• • .' - ' 
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- :. • - ■■ > ■ • ... . • . ..*_.: - ■ ! ' • . . • • • •. * 

Parent Script4:soundSegments ■ • • ••' ' ., 

.--4/10/97 ' ..." •• y ' '.' ' 4 " .' - . .'- ." 

added coimnand to turn on notesSpr ices to try to fix , 

bug where notes come on then go off . .... 

changed purge Priority : in pre loadSounds handler from 1\ to 0 /* ] 

property ancestor, myHandlers , -piayLis.t , currentLevel, SoundNum, UserHits , RoundScoreLis t 
. Property audioOn, interval, TwoSegWordList , ThreeSegWordList , FourSegWordList 

Property wo rdToPlay, game, part-List , wordParts ' 
. property- armMember , TimeOutNum; disableRePlayButton, SkipYesOrNo 

■ ' , . ' ." . ■" ■ - 

on x .. Public Handlers : . . 

; , : — I m a separator:' • - 

- ' " "-end ■ ' . • . 

• ; ; " :-; -. ■ ' • . -. . - , • . • * > .- ■ . . • ; ... - 

. • on new- me • t 

/ — pub/ . ' '•' ■ ■ *-.'■ - •• : •' / \ 

global gGameScorer, gLEEMan : 

set ancestor = gGameScorer . " 

.''set myHandlers = 0 ■ . ' '•" . . * 

set myHandlers = GetMyHandlers (me) ' ; 

set game = #sbundSegments 

set gLEEMan . = .0 • \ 'y 

set gl^XHan = new (script - LEDDisplayManager * , 41,42) , V 

— set up LED display object, params s are the sprite nums 

return me - > • 'C; • • • ' 

end - \. '"".v . • . '' ., 

■ : " -:. •• ' - ' '• i ' *' 

on SetUpTest me, Level , Pref List ' / 
v global gRpundOver , gNoter ... ' / ' ... 

■ y noteSpritesOn gNoter • / 1 : > 

; set CurrentLevel = level; .. ■ ■' : ' , 

setUpWordLists me : r - r ' r - 

setUpPlayList me 

set SoundNum = 0 7 ^ : , w .' '""..'*•*• . 

. set TimeOuOium = 0 ' • 

set wordToPlay = 0 ' 
' set wordParts = 0 ■ ' . * .' ' ■ 

set RoundScoreLis t = [j 

' set ScoreList = [0,0,0] : " 

. ' setat scoreList, 1 , currentLevel : . . • - • - • 

setat RoundScoreList 1, score list ; 
if currentLevel = .16 then r ,• 
set audioOn = false . 

set armMember = the Membernum of member "arm wave" 
else ..." . . . . - • . - . 

• set audioOn = true 

set armMember > the Membernum of member "arm down" 
end if . ' . ■ ' ' ■ •' • • ;' . : ; ; 

PreLoadMember armMember , " . 

set the purgepriority of member armMember =1 

;set interval = 30 —?????? * ' • • 

- . set gRoundOver = false 

set disableRePlayButton = getAt (Pref List , 1) 

set SkipYesOrNo = getAt ( Pref List , 2 ) \ ■ , '', • 

end . ' '• ■■: " ;• • " • , . „ ') 

" '-'•>.." • r "'. , ' ■ 

, " ' . ■ ' . - ' ■ - '•■ ' " .' . - ; .. ■ ' ' t 

""■*.' • ■ ' . - . . i , . . 

■ i on PlaySounds me : 

."■ : * . . -. • • • - 

■ ■ ' ■ ' •■: *>. ' . i - 

• , ••.«...• ' - . *■ 
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global gRoundOver , .gSounds Playing , gLEEMan 
if count (playList:) < 1 then exit 
. '. -set gSounds Playing = true , 

set WordtoPlay = getat ( PlayList , 1 ) -". 

• set wordParts = getat ( PartList , 1 ) 
pre loads ounds me 

set UserHits = 0 • ' 

deletea't Playlist , 1 
deleteat Pa'rtlist/l 
set SoundNum = count. (wordParts.) 
. puppet sound member wordToPlay 

• updates t age 
put the name of member wordToPlay 
repeat while soundBusy(l) ... ' 

nothing : ' ■ 
end' repeat ' ";■)■■ ' 1 ' . ' .: 
StartUserDrumTime 300; , "CheckUserHits. gGame" 
' s tar tLEDDi splay gT.KDMan, 300 — start LED timer display 
if count (playList )•< 1 then set gRoundOver = true- 
. set gSounds Playing ? . false . • /. ; 

■ puppet sound 0 ■ - ..' • 

end : " : " ' . ' - • - 

* »■ , * 1 , • ' ■ 

on RepeatSounds. me - - 

global ' gLEEMan " • :"\ . \ ' ' . \ '. .;' 

ClearLEDDi splay gLEEMan ; ; ' 

' . puppetsound member wordToPlay 
updatestage '» . 

put the name of member wordToPlay . . ." V 

repeat .while soundBusy (1 ) 

npth-ing' - . v >T "■; •; 

end repeat . .. ■ 

StartUserDrumTime 300, "CheckUserHits; gGame" ' " • . " ; 
startLEDDisplay" 'gLEDMan; 300 -- start LED timer display, 
puppetsound 0 " , ; • 

end ■'. , ' . ' * .-. 

. .. _ . ■ * • - 

on userDrumHit me ■ . , 

global gArmSprite , gLEDMah. 
set tijT>ebutNum "=■ 0 

set UserHits = userHits + 1 . ' 

set the member of sprite gArmsprite = member armMember : 
.updatestage. . >, . - •• 

putUpNote UserHits- 
'. wait v ' ' ,' 
if userHits > SoundNum then c 

doWrongScore me , ff over - v --«.---■ ; •- . • 

else - • ; • --' , ' •.. 

V' J if AudioOn then ./. . 

set sound = getat (wordParts, userHits) 
puppetsound member sound \ 
updatestage ,„ : 

set the member of sprite gArmsprite - member "Arm up 
t updatestage. ■ 
put the name of member sound . 
. • repeat while sbundbusy(l) 
updateLEDDi splay gLEDMan 
; end repeat ' • : . . , 
end if " " ' *-'v 

• set the member of sprite gArmsprite = member "Arm up" 

* ' ( *' 
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upda test age 
puppet sound 0 
end if 



end 



on xx - - - Private Handlers - - - - -- - - - - ^ - 

i'm a separator 

end 



on preLoadSounds me 

if voidP (wordToPlay) or wordToPlay = 0 then e%it 
preloadMember. WordtoPlay 
put the result 

set the purgePriority ot member WordtoPlay = 0. . 
repeat with theSound in wordParts 

preloadMember theSound 

put the result 

set the purgePriority of member theSound = 0 
end repeat 

end "... . x . 

on UnLoadSounds me 

if voidP (wordToPlay) or wordToPlay = C then exit 
unloadMembor WordtoPlay 

set the purgePriority of member WordtoPlay = 3 
repeat with theSound in wordParts 
unloaoL-iember theSound 

•set the purgePriority of member theSound = 3 
end. repeat- ' : . • 

end • ■ \ -.c 



on setUpwordLists me 

set twoSegwordLis t = [\ 

set x = the number of Lines of field *2SegWords" 
repeat with y - 1 to x 

append twoSegwordList , line y of field "2SegWords" 
. end repeat • 
set threeSegwordList - f ] 

set x = the .number of lines of field "3SegWords* 
repeat with y = 1 to x 

append threeSegwordList , line y of field "3SegWords 
end repeat 

set f otirSegwordList = [ ] 

set x = the number of lines of field "4SegWords* 
repeat with y ~ 1 to x . 

append f ourSegwordList , line y of field "4SegWords" 
end repeat 

end •• 

on setUpPlayList me • " 

* - * 
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— priv. . t r 

-- sets up playlist with no sound repeating 

more than, twice in a row - 
set Playl.ist = [] 

set, parti ist =[]. r, ' ■ ■ ' ■ . . 

set - beatNumList .= [2, 3,4] 
set BeatNums- '= Count (beatNumList ) 
repeat v.hile count (playlist } < 10 > . • - 

set x = count ( PI ay List ) . . • 

. .'set beat s - getat (beatNumList , random ( BeatNums ) ) 

if x >• 3 then "- : ;* 

"... • set Bl = " getat .(PlayList, x-1) 

set B2 = getat (playList , x) , - 
if beats - bl and bec v s = b2 then next repeat \ . 

end *'f ' .. "• : • \ : 

append playlist; beats . . 
end repeat . ■ : \ .. - , 

put playlist : r '• ■ ' ■ 

set x .= 1 . ' . . - •• t . ' 

repeat whale x * 11 . '■ / ■■ ' 

set missingSound = 0 f lag .. for missing cast members 

set nvmSegs - getat (playlist , x) • ■ 

case (numsegs) of 

2 : set listPos = random (count ( twoSegWor dL'ist ) ) 
set theWord = getat ( twoSegWordList , listPos) ■ 

• ; deleteAt. twoSegWordList ; listPos ' . .. V; 

set The Sound = the number of member' theword of castlib " sndSegs . est 
if TheSound = -1 then , ■ - . . ." 

set MissingSound = 1 '•' ' ]■'* 

end . if _ ' *. ' . v ' 

set The Parts = (] r . . 

repeat with z = 1 to 2 : 
set Part = word z of 'theword ' 

append theParts, the number of member part of castlib "sndSegs ; est 
if the number of, member part of castlib "sndSegs . est " ■' = -1 then 
set MissingSound = 1 . • * 

. end if < ' - ' • ' . . 

end repeat 

3 : set listPos = random (count (threeSegWor dList ) ) . ' 
" set theWord = getat ( threeSegWordL.ist , listPos) 
. deleteAt threeSegWordList , listPos 

set TheSound = ' the number "of member theword of castlib " sndSegs . est " 
if TheSound = -1 then 

set MissingSound = 1 . - 

end if' • • 

set TheParts = [] 
repeat with -z-.= 1 to 3 

set Part = word z of theword 

■append the Parts, the number of member part of castlib "sndSegs . est 
if the number of member part of castlib "sndSegs . est " = - 1 then 

set MissingSound =1 • 
end if. 

end repeat . -" ' . . 

4: set listPos = random (count ( fourSegWordList)) 
set theWord = getat ( fourSegWordList , listPos) 

deleteAt fourSegWordList. listPos ■■ * . • 

set TheSound = the number of member theword of castlib "sndSegs . est " 
if TheSound = -1 then 

set MissingSound - 1 >. 

APPENDIX A-111 



:. : - end if - . . ' ., .., - ; . ' I , , : ' . 

set TheParts = '[] • . / . 

repeat with z =, 1 to 4 . 
set' Part = word z of theword 

append theParts; the number of member p^rt' of cast lib "sndSegs .est " 
■ ■ if the. number of member part of. castlib " sndSegs . est " '=' -1 then . 
set MissindSound - 1 * • \ 

'-.I- 'end if • .• r . •'• . r . . ••• • . ; - : 

• v • end, repeat ' . ' ■■ ■ - . ' •• 
- end case' - r '.' .* . . . ' :.: .'■ • . . ■ • ., '" 

if missingSound >' 0 then --some east member was missing so don't use word 
next repeat . 1 • " - . 

-'• ' 'else ... .- . ' ; ! : . ■■ . ': . 

secat : p]ay^List'.: rhespund , V . 

•append /part List , theparts ; . : . 

>'se r X = x + 1 . • '.' '. 

end . if • ; "; , .-' ..' •. • . ' .. ' •' • ' • ' • 

end repeat • ■. . .. , . .. 



- f ■ 



-oh oldsetUpPlayList me ' *" 

r : priv. ' . ,-' , 

sets up; playlist with no sound repeating . 

* ■ -- more than twice in a - row . 

set PlayList-. = {] '.' :"\ , • . <; : • : - 

- set .parti is t =[] - ; . v . • • . 

set BeatNumList .= [2.3,4] • .'. 

* : set BeatNums '.= Co'unt.(beatNumList ) ' V 

- repeat- while count (playlist ) < 10. 

- set x - count (PlayList ) " 

-■' .set beats = getat {beatNumList random (BeatNums) ) 

,- \ if x > 1 then . v, * 

- ■" set Bl ■= getat (PlayList , x-1) 

- : • set B2 .= getat (playList , x-) . l " 

^ • if beats = bl and beats '= b2 then, next repeat 

-] - 'end if 1 , ' 

" append playlist. beats' . ' M 

end repeat = ,„.. 5 -v — .. . ' • * . . ' . ' ■ ' ■■ •.• 

- put playlist* ■ ■ ■ ' '' 

- : repeat with x = 1 to 10 . . : 

set numSegs '= getat (playlist/ x) 

- , " case (numsegs) of 1 '* . 

2 .: ; set list Pos . = . random (count ( twoSegWprdList) ) ... . 

set theWord =' getat ( twoSegWordList , listPos) 

- ■ deleteAt twoSegWordList ,.; list Pos \ 

- set TheSound = the. number of member theword of castlib 'sndSegs . est * 
set TheParts =' [] / ■ • . ; 

- repeat with z = 1 to 2 

. set Part = word z of theword 
append theParts. the. number of . member part of'' castlib "sndSegs . est. 
\ : - . end repeat ; <; • ••• ' 
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-. 3 : set listPos = random ( count ( threeSegWordList) ) 
set theWord = ye tat (threeSegWordList ,, listPos) 
deieteAt threeSegWordList, listPos 

set The Sound = the number of member theword of cast lib * sndSegs .est " 

- - " set TheParts =. [] .... 1". ' 

„- 1 . repeat' with z - 1 to 3 .. .. 

' • .set Part = word z of theword •.. 

•. • append theParts; the number of member part, of cast lib p sndSegs . est 

;, end- repeat . .' 

_ " 4:. .set listPos = random (count '( f ourSegWordL.ist ) ) . . s 

-- • -set- theWord =• getat ( f purSegWordList , listPos) . •. . • .. 

; deieteAt f ourSegWordList , listPos . " *\ . , ... 

_1 . ' -etvTheSound - the number of member theword of cast lib" sndSegs . est " 

s^t TheParts = [ ]. ; '-' ' ' . :, 

- - ' ■ : rpea.t with r. = 1 to 4 .. \ , - •' j : : 

., - ' . \ • v set • Part - v;ord z of theword ' : . v " . ; 

. ippend the Parts. >th*e number of member part of cast lib ' •" sndSegs . est 

"' repeat ' . 

end /vine: ■ ;.«-; . • . .' ' • - 

- - : ' setat / play.List , ' x" . thesound. .. V •« ■ . ; 

.'•append -part List-, thepa'rtsv . / - 

end repeat . - . . ... • : .• • •■ *' • ': > 

-.-end; '■ • "•' •• ■. ". '■ " . - 



on xxx---~- —Testing Handlers-- ■ y ': . . , . " ; ■ 

-- i'm a separator - ' .■ ' _ ( . ' ' •' , ;■ 

'.nothing- :• . * . ,'\ . . >". 

end . . ' • ' '- 

on showHandlers me- * ■ . 

--■ Testing • ; - - , : 

-- puts list of handlers in mess age, window ' ' • " 

put myHandlers , " ' - ' / • * *-\ 

end : . - * ; ■ ; . " .*■ . . 

on showPrbps me ; 

-- testing . . • . - '• 

: puts list of properties and their current values in message window 

' set PropNum' = count (me) ■ ■ 

repeat* with x = 1 to. PropNum = 

. set prop = 0 ;. , j : ' 

set this Prop = getpropat (me ; x) 
if thisProp - -ttmyHajidlers then next repeat 
•put (string (getpropat (me, x) ) ) getaProp ( me, this Prop) into prop 

put prop 

end repeat' / ,■ , * . 

fend • • - _ '• ■ *■ 1 ■ , - ; • '•• . • ' ' • 

on TestWordList me, whic.hField, s tartwhere 

--■plays all words in a sound name field and attempts to play a IX".' 
the word parts of ..that field _ 

r 

. set castLibname = "sndSegs .est" ,. . ! : 

*■.--." • v , 

***■'* •* ' , 

-• i f voidP (startwhere) then , ; • . - - 

, set - y = 1 ' 

■ else ' .. ' ''.*.■• ■ • - ••' . . 

*' set' y = startwhere 

* - 1 ■ ~ 

■ • t 
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end if ' . , ; •' ' 

.set : numlines- = the number of lines. of field whichField 
repeat with .x = y . to numlines . . ■ ,. 

- set thesound - line, x of field whichField ' 

set wordNum = the number of words in thesound ' 

put x k&o^ote&thesound&quote "meidberNum" the member num of member the sound of 
castLib castLibname • ' '■ : .; ; 

set Sound = -the number of member thesound of castLib castLibname / 
puppet sound member sound ^ .', •' 

updatestage . /*' ■ . ,; -. \ 

1 . repeat while soundbusy (1) 

nothing : ' - ' .' , . . . - 

end repeat . - . •' ■ 

wait 6 ,'• • ' / • . •• ' - -■' "•• .. 

/repeat with "z = 1 to wordNum • ' . . • „ : ■/ , 

set /soundpart - word z of thesound ■ . % t V" 

••' put soundpart " \ ' ' -\ : . ' ; • • ' 

; set soundpart = the number of member soundpart of cast 1 ib castlibname 

„ puppet sound member soundpart ; 1 

updatestage . V'*/' ' - ' ; - . ' 1 ' 

repeat while soundbusy (1) : <■.. . ■ -:*." , . . ^ 

\' ..'nothing 5 \ . •' • " ■ •■ ' I- ; ; . 

end repeat ;; . v ■ ■ • •• 

v wait ' 6 • r. - /' , • ' [ t ; 

■ end repeat . : . ' ' ' ' . .. - 

end repeat . ; v .•; ■ ■ ». ' - ' \ 

end . '. • ' . 1 -. - . '• ' .' '. ; 

■ ' • ■ ■ ' '■■ . ■ • ■ • • ' - ' v ■ - 

1 ' * • - ■ ' ' - ■ ' : - 

" , - ' \ * . . ; . ' . < ' r ..... * ' 

on FindMissingSoundsandSegments me* ' . v - 

.'■'«'' . .. . . • « ' , • 

. " •"• ", ' • . ' • • • .' • ' 

tests all sounds from the soundSg lists 

.-- and looks .for all parts, of those sounds . : '" 

if parts are mis sing , posts info to the .message window 

setUpwordLists me V " . ' ■ • • ' • ' , . , 

put "looking for. missing sounds from SoundSegments game" 

repeat with theWord in twoSegwordList . \ 

if the number.. of member theword = -1 then ■ ■ . ; ■ ' ' • ; ' 

'!. put theword "is missing" ... v . ■ 

.end, if t • .. . - . - - - •., •.• ; \ ~ ' ,". 

repeat with y =1 to- 2 . ;. . . ■ ' 

- . set thePart ^ . word y of theword . • •• ' • 

' • 1 if .the number of member thepart- =' -1. then : 

put thePart "of " theWord£c& " is missing" 

end if V' ., ' . ' 

end; repeat - .' . • . r , • " ■ 

end xepeat * • ... ■ , . • 

repeat 'with theWord in. threeSegwordList - . ' 

■if the number of member theword = rl then 
put theword && "is missing" 

end if "• / ' ■ 

repeat with y = 1 to 3 / 

* set thePart =. word y of theword 

i- if the number of member thepart = -1 then. 

put thePart "of"&& th^Word^&" is missing" ' 
' ■ r end- if v '* . , 

.end repeat ; .. . * - ; : . • \ ■ ... ... 

end repeat . ' • •■ . - • . . • ' ; 

» ' • > " •■ •.•■■'* *" j ' ■ r . 

• repeat with theWord in f ourSegwordList 

• . . . ■-■•••'./ 

.... ( , - ; 
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if the number of member theword = -1 then 
put theword "is missing" ■ ' > 

0 \erid if :' ■■ • ' ; ■•- 

repeat. with y = l 'to' 4 . 

set thePart = word, y of theword ■ . 
if the number of member thepart = -1 then 
1 put thePar.t : "of theWord&£c' is missing' 

■■' ■•• end if 1 ■ . ' , P •: . • 

. end "repeat 

end repeat ' . * 

"cone looking".;./.. ■ .. * ' • 



end 



' i. 
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Patent Script5:Game Scorer 

--4/9/97 • 

) ' " - - : . . 

c ' '"*'-■ 

property ancestor, my Handlers 

on new me • . - .. 

global gReccrdKeeper • = 

set ancestor "= gRecordKeeper 
set my Handlers = 0 

set myHandlers = GetMyHandlers (me ) 
return me 

end . ' x •; 

i 

on report Scores me 
' set scoreList = getc- 1 { the r oundSepreList of me, 1) 
set NumPlays = getat (scoreList, 2 ) : - 
if the TimeOutNum of me = 1 then 

-- got here on a timeout so delete one play for last try 
set numP'lays = numplays - 1 
setat .■ scorelist, 2 , numplays , 
end .if : . • . " . 

set NumRight '.= getat ( scoreList , 3 ) , 

if float (numRight ) / float (numPlays ) >= .80 and nujnp lays = ■ 10 then 
,:* set Level toSave = the currentLevel of me + 1 
else ; 

set leveltosave =• the currentLevel of me 
end if 

if leveltosave > 17 then set leveltosave =17 

put "RoundScoreList =" ScU the RoundScoreList of me 
put "leveltosave && levelToSave 
saveRoundScoves (me, the RoundScoreList of me, leveltosave) 
end 

on resetPlay me . ' 

global gNoteSpr it es ' 
--to run after a replay of sounds 
set the userHi ts of me = 0 

repeat with this Sprite in gNoteSprites • . 

set the loc of sprite thisSprite = point ( 1000, 1000) 
end repeat — 

updatestage > 

end ~ • 



on CheckUserHits me 

if the userHi ts of me = 0 then set the TiineOutNuni of me = the TiineOutNum of roe + 
, if the TimeOutNum of me = 2 then . 
doTimeOutAbort me 
exit 

end if : 

if the userHits of me = the soundNum of me then 
doRightScore me . * . - 

; else * ' - : 

doWrongScore me'. under ' 
end' if . - ' 

•end 

■ - > ,- * ■ • . - 

■ - ■ ■ ■ i 
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oh doRightScore me * 
. global gwhichNote . 
set scoreList = getat (the rounds coreList of me, 1) — do scoring 
set NumPlays = getat (scoreList, 2) . , ' - 

set NumPlays = NumPlays + 1 

set NumRight .= getat (scoreList , 3) \ . : \, 

set ' NumRight = • NumRight + 1 
setat (scoreList , 2, NumPlays) 
setat {scoreList , 3 , NumRight ) ^ 
setat (the roundscorelist of ; me , 1 , score list ) 
: set gWhichNote = "right Note" V 
set x - Random (4) ' 
" if disableRePlayButton ( ) = false then • • ' 

. if. we are showing replay button we need . 
-t to get rid of it ; . , . .. 

- set the loc of sprite 4 - point (- 1000 , -1000 ) 
set .the loc of sprite 5 ■■= point J - 1000 . -1000} 
upda tost age . ' - 

puppetSprite 4, false - \ :" . 

puppetSprite 5, false- . 
end if ,. . • • 

go to frame "Right*" x r ' ■ . - ' 

end . : • " ... " . \ -; • " • 

i ' ■ ■ i ■ ■ ' - * * 

" **■ - -■ - ■* 

on doWrongScore me, WrongHow •. 
global gWhichNote ... 
' set • gWhichNote ■=' 'wrong Note* 
if disableRePlayButton ( ) = false then \ . 

— if we are showing replay button we need : 

--to get rid of it !>•.,. ;. 

set the Toe of sprite 4= .point ( -1000, -1000) 
set the Toe of sprite 5 = point (-1000, -1000) 
upda test age 
puppetSprite 4, false 
puppetSprite 5, false 
end if , ; ' . 

- ■ to i 

go to fraine "wrong* • ; 
if wrongHow = lover then t 

set whichNote = the userHits of me 

doOverDi splay whichNote * ; 
end if 

set scoreList = getat (the roundscoreList of me, 1 ) -- do scoring 

set NumPlays = getat (scoreList ,2 ) 

set NumPlays = NumPlays + 1 . " ' 

setat ( scoreList , 2 /NumPlays) 

setat ( the rqundsccrel is t of me, 1 , scorelist ) 

■ . . • . . *..■.' 

end . ' . 

on doTimeOu tAbor t me 

* * - ■ t 

if user doesn't click mouse for 
-- two soundp lays we abort the round 
-- if there are more than 1 NumPlays then 

user did play some in .the round so 
-- we report the scores after correcting for 1, the . 
— first timeout. • ; 

global gArmSprite 

set scoreList = getat (the roundscoreList of me, 1 ) -- do scoring 
set NumPlays = getat (scoreList, 2)- - 
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'if' NumPlays < 2 then ' •- , 

if disableRePlayButtonO = false then 

--if we are showing replay button we need 

--" to get rid of it 1 

set the loc'of sprite 4 = point ( -1000 -1000) ' 

; ■ • set the loc . of sprite .5 = point (-1000, -1000) . • ' ' . ' * ■ 

updates t. age "• . . ■ • 

puppe t Sp rite 4* ..false . _ 

.puppetSpr i te 5, false < : , - - . ■■■ . 

end if - y : " i- ' . : . 

•. go to. Label ( "QuitorGoOn (end) " ) + 1 -~ skip to prompt directly, bypass pre f test 
exit . - V .. '. • ' - '. - " : - ' . 

end if . ; / " ■;. <\ ... - . : 

set NumPlays NumPlays - 1 , . ■ 

.set at- ( scoreList , 2 NumPlays) v. 7 . ; , - - / "" .' ' :"- 

set at ( the • roundsGorelisJt of me, 1 , scorelist ) .■ .r * 



puppetsprite gArmsprite, false • \ y 

reportscores me / -., • ']. 1( . - : . '■ ' ' ' 

■ . ■ if disableRePlayButtonO = false then / 

if we are showing? replay button we need \ 
'■ -- to get rid of it ' ."' / "'• v - 

/'set the Toe of sprite 4 = point (-1000, -1000) ' ' . i . : 

set the' loc of sprite 5 = point (-1000 ; -1000). ; V 

y v updates tage. -,. ~ ' •. « ~ \ 

puppetSprite 4, false . ' ' 

puppetSpr i te 5. false ■' ■ : * ;'" ; . : 

.' end if . . . .. V-;. . . . . . . ' .. ' 

go to Label ( r "Qui torGoOn (end) " ) + 1 skip to prompt directly, bypass pref test 
4> end '. . ♦ .... ... / . , ■- . - ' . ' •• .. ' ' '. " ; : 

on showHandlers me ■ : . 

... Testing ' ' .. . , : ;. ..... \. ' > • • : ' 

' . , - - puts list of 'handlers in message window ' - . ; ' v 

put myHandlers • ., - : 

■ end v - - , . ; •• - . '• • .V •. .v . 



oh showProps me 

■ -- testing ' ' : . . ■ ..... , - " ; 

— puts list of properties and their current values in message window 
set PropNum == count (me) • *' V; 

repeat with x . = 1 to PropNum • ,'. ; - . 

set prop . = 0 V ' ' 

set this Prop = getpropat (me, x) ; '.' '■ - 

if thisProp = # myHandlers then next repeat J 
: ■ put (string (getpropat (me, x) ) ) get a Prop (me, thisProp) into prop 

: put prop" . / - • • ). . ■ ■ ' 

end repeat •. .; . " f 

end ' •' 
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Parent Script6;LEDDisplayManager 

't "■ ■ ' ■ 1 ' ■ «.'■."' : '. 

Property pBaseSprite, pLEDSprite, pTimeSpaii, pNumLightsUp, plnterval •, pLEDLoc, start 

on new me, baseSpriteNum, LEDSpri tenum , 

— first param is the timer artwork itself / second param is \ 
-- the little green bar which climbs up to indicate time passing 

set pBaseSprite = baseSpriteNum . : ." , . ' 

set pLEDSprite = LEDSpri tenum ■ 
; return me ., ■ .• 

end • •' • ■ ' - • :' • ■' ^ 

on start LEDD i sp 1 ay me, timeSpan . 
set pTimeSpan -.=;. t imeSpan; - ' 

set the member of sprite pLEDSprite = member -green rect" 
put the ticks intp start 1 ■ 

set pNumLi ghtsUp = 0 * - ^ • / ' 

set plnterval ' -\ timeSpan/ 9 number of LED. bars 1 ; 



end 



■■»■ f 



on UpDateLEDDisplay me , '• . , " • ' ; . 

global gpausestatus ' . ; 

if gpausestatus "resume" then. exit * ' y. 

if the ticks > start + .(plnterval - 1) then— change display, force a little faster 
if pNumLightsUp = 9; then exit -- we're done 

put the ticks into start- * 4 V" ... .;\ -. . • 

set the trails of .sprite pLEDSprite = true • * * ; 

if pNumLightsUp = 0 then - - first time '•• 
set pLEDLoc = initLEDLoc(me) ■ • ' .< . 
set the ioc of sprite pLEDSprite = pLEDLoc 
• else • _ '■ . ■ . 

. set pLEDLoc = • pLEDLoc - point (0, 7) 
set the loc of sprite pLEDSprite = pLEDLoc 
• .end if- : " v ' : ■ . ' ' 

updates tage k * , 

set pNumLightsUp = pNumLightsUp + 1 
.set the trails of sprite pLEDSprite = false 
set the loc of sprite pLEDSprite = point (-1000, -1000) 
; end if ; 

end. "• . .. ; • .., ' ' : V ■ ,- -. 

■ " v ■ • V , ' ' .V . '. * • . . . • 

on f inishLEDDisplay me •• .'v. - 

if pNumLightsUp— 9 then exit,-- we're done • v *• 

;• repeat with x = (pNumLightsUp + 1) to 9 

set the trails of sprite pLEDSprite = true-' ; '■ 

set pLEDLoc = pLEDLoc - point (0, .7) 
"set the loc of sprite pLEDSprite = pLEDLoc 
updates tage ' - 

wait 2 : 

end repeat ' , . ; * • ■ 

end : • * . • 

. • - * ■ . . *■ . ■ ■ 

on ClearLEDDi splay me „ ' 

set. the loc of sprite pLEDSprite = the loc of sprite' pBaseSprite 

set the member of -sprite pLEDSprite - member * rapTapTimer " . 
. , updates tage . 

set the loc of sprite pLEDSprite = point { -10000 , -10.000) 
. set the memjber of sprite pLEDSprite ,= member . "Green Rect " 
end -■ ■ ' ' . 
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parent Script7:Noter 



property NoteSprites 

• r ' . • •• ' 

...>.- , - ' - 

on new me ■ ' , : ■ 

* ' . . ■ > ■- * ■ * ' ■ 

init me 

return me - •■■ ■, . ..■ . 

m * * ■ -T 

end " ' • : • ... \ 

' : '■ ■ ■" . . • ' ..' • • . ■ . - ■ 

on PutUpNote me , 

global gWhichNote . . . . 

' put •NoteSprites-'" & NoteSprites 

if count (Not eSprites) < ,1 then exit 

set thisNote ' ~ getat (NoteSprites, 1) 

deleteat (NoteSprites, 1) , : . 

set the member of sprite thisNote = member gWhichNote 

• upda'testage • \ • •- ; 
end. • ' - \ - . .. . . ' . . ■* 



r ' on NotespritesGn me ' , . 

':■ set noteList =; [39. 38 # 37 # 36 , 35 , 34 . 33 , 32 . 31. 30] 
*■ ' . ' repeat with x in noteList 
; . puppetsprite, x, true . 
end repeat - 
end. . , 1 •• • 

on Notespr i tesOf f me . . ' , . ■ . 

set noteList = [39, 38, 37, 36. 35. 34 , 33 ,32 ; 31, 30] 
repeat with x in noteList ■ - ■ \ ■ 

set the member of sprite x = member 'no Note" * 
puppet sprite x, false •: , : '•■ , \ . 

updatestage- .. 
wait 2 !' \ 

end repeat ..- .' 



end" •. : 

on Ini*. me , • . ■ 

set NoteSprites =. f30. 31. 32 . 33 ; 34 . 35, 36. 37. 38. 39] 

end : ' • 
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Movie Script8 

• ■ <• ■ . . 

on disableRePlayButton 

called during play to determine whether or not to 
-- display replay sound Icon 
global gGame 
\ return the disableRePlayButton of gGame 

end 



on SkipYesOrNo 

called: during play to determine whether or not to 
--go to play again prompt screen'' 
global gGame 

return. the SkipYesOrNo of gGame 
end < 



Script of Cast Member9 



on mouseUp 
• global gGame 

repeatSounds gGame 
end 



J 
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Score Scriptl d:for f rarne "test* + 1 



on enterFrame , 
.if not disableRePlayButtori ( ) then . . 

puppet Spri.te 4, true --replayButton sprite 1 
.puppetSprite 5, true replayButton invisible square sprite 
set the.loc of sprite 4 "*= point (612, 125) ; 
set the loo of sprite 5 = point (556, 81) 
updatestage < - . / 

end i f .. ' 

end • 1 ; . • • 



on ex i t Frame 

global gArmSprite, ghandcursor ■ ■ 

.cursor' ghandcursor . . : - 

puppetSprite gArmSprite, true -~ drummer ' s arms 
set the mouseDownscript to .empty 
checkUserDrumTime • 
go, to the frame 

end • . 



-i * 



on idle . 

global gLEDman 

UpDa t eLEDDi sp 1 ay gLEEman 
end 



■ t 



Score Scriptl 1 

en exitFr-me 

if soundbusy(2) then 

go to the frame 
else 

continue 
end i f 

■ y ' '•' 

end 
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Score Script 12 



or. exit Frame . \ ■ , .. *. 

set rightlist =' list ("metal "blues" ', 

; set x ~ random(S) .. . 

put getat (rightlist ,x) into playmusic 
• ; puppe tsound 1 , playmusic ' '*- . ... 



funk", "pop rock" , "soft rock" ) 



end 



Score Script! 3 



. T 



on exi tFrame ? 
.if , soundbusy ( 1 ) . then 

else ' .. ' ' ' 

■ ■ . * • • • 

go to frame "endmusic" 4 

4 end if * . • : • - ■ , > . ' 



end 
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on exi tFrame: , 
- checkUserDrumTiine 
go to the frame - 

end ' : . 

on mouseDown 

globa 1 gGame 

userDrumHit gGame 
end - : 
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oh exi tFrame 

sound fadeOut 1, 60 

. end ' ; 
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Score Seript16 



V 



on exit Frame 

go to the frame 
end 



Score Script20; • 
on. exitFrame • 

-r uncomment .this script for real play 
and deletete part' underneath 
if soundbusy ( 2 ) then 
go to the frame 

else . . * • " v; 

go to frame - rightmusic " .. 

- end if 

end V * 
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Score Script23 



on' exi tFrame 



end 




Score Script28 



on mousedown 
don tpas seven t 

4 * 

end '■• 
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Movie Script39:StartMovie 

— 4/10/97 • / V ; . • ; ; ■;. - ... 
added ResetAl lPurgePriori ties handler to ensure against 

r- -\ leaving some cast members set to priority 0 from the PreLoadSounds , 
--handler in .the gGame objects. Placed command at "qui torGoOn" frame 

- - and - at menu' button- exit . . , '*•• 

*S ....... - ■. t . . . _ . r . t 

... . - \ - - . - • t * 

on startmovie - 

global gNoteSprites, gArmSprite , gNoter, ; . 
gGameScorer , gpausestatus , gTheName , go Idsco ring level 

global gSpritesOriList ;.ghandcursorv goldscoringlist ■ 

. ' set ghandcursor = list ( ) " „ ' , . "' 

append ghandcursor,. the number of member "HandCur" - 
append ghandcursor, the number of member ~ " HandCur Mask* 
set the purgePriority of member: "HandCur* =0 
• set the purgePriority pf member "HahdCurMask" = 0 
. cursor 4 - / : ■- . • . 1 

cursor ghandcursor ' 1 • •« 

set gSpritesQnList = [ ] --' empty out in case values come in f rom "dataView" 
set gNoteSprites" = [10,11,12,13,14] ; . ; - 

set gArmSprite = 3 — - drumrner \s .arro •/!. - • f . / 

PreLoa'dMember ■ "arm Wave" 1 •■ . ■ • ■ 

set the purgepriority of member "arm, Wave" =1 

set gNoter = new {script "noter") •• , ' . '• - ' . 

. set gGameScorer . = new (script "gameScorer " ) ' 

. set the visible of sprite 45 to false - 
/; set the visible of sprite 46 to false 

set the visible of sprite 47 to false ' 1 • 

. set the visible of sprite 9 to false-- .• . % . .. 

set gpausestatus = "pause" : . ' ; . ; . .' • • , - 

' * , ■ 1 ■ 

' » ■ : * ' . « ■ ■ ' ,1 ■ ~ , 

■ • .■' .' ' . - '' '* . 4 » ' 

if object P(gRecordKeeper ) then 1 . . ' 

put setUpRound ( gRecordKeeper . gTheName, 4 ) into goldscpringlevel 
put getGameLevelLists (gRecordKeeper ,,. gTheName) into tempi evel list 
put getat ( temp'levellist, 4 ) into goldscoringlist • 
end, if ' • . ?. ' 

• '. : ' . ■'■ ' 

* . *■ I 

• - f . .1 ( 0 _ ( * t t 

if the r-unM6de = "author" then ' : , . 

• this checks for missing sounds in the cast 
- ~ . by running through all the fields that hold 

the sound names. It posts missing words into the message 
-- window. This should probably be. whacked , out 

• - - before the final . burn. ; ' 
-. doMissingSounds Check ' ;l • 1 

end if; ■ . > • " / ' f - ' . • • 

go to f rame S ■ ' . . . 

'. end- . ' '• • • . 

'* " . . ■ *> ■' - . 

on StopMovie . "■ -\ - • " . " * 

. global gGame , GVoid, gRoundOver - gArmSprite, gWhichNote,, gNoter 
global, gGameScorer. gSpri tesOnList • 

APPENDIX A-126 



global gLEDrnan . ' 

--' set gGame - gVoid ■./".; ■- 
set gGameScorer = gVoid ! 

set gNot€ Sprites = gVoid 
■ set gRoimdOver. - gVoid . v • 

- set gSoundoPlaying = gVoi.d " ./ .• .. ' 

set gArmSprite' = gVoid ' . . ; 
' set gWhichNote = gVoid * , ; 

set. gNoter - gVoid - 

set gLEDman = gYoid \ 

set gSpritesOnList = gVoid 
, -set the purge Priority of member "HandCur" = 3_ 

ket the purgePriori ty of member "HandCurMask" . = 3 
end ■ . ' < ' ' 



» 



Score Script4G 



on ex it Frame •■* . 

global gGame ' * / ; - 

1 unl oadS.ounds gGame ;, : . 

< resetAllPurgePri'orities -- just in case 
,." puppet sound ;2. "Play again" 
end 



Score Script41 



on mouseUp . 

global gArmSprite ... ' 

puppetsprite gArmspr.it e, false 
. puppet sound. { 2 , 0). 
puppet sound (1,0) • 
un 1 oad : 

/ go to frame " intro" ' ;. ; 

end ' ■ : ■ 



. * 



Score Script42 



on ex it Frame 
Global gNoter 
putUpNote gNoter 
puppet sound 2 .0 ' ^ 
puppet sound 2, "way cool" 
updatestage 

end > - " . - v ; 
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Score Script43 



on exitFrame 
global gNoter 
notespri tesOn gNoter 
go to frame "playSounds ■ 

end 



Score Script44 



on exitFrame 

global gArmSprite . 

puppetSpr i te gArmSprite, true -- drummer's arms 
end 



Score Script46 



on : mouseUp 

go to frame " black 
go to movie "progress 
end 



Score Script47 . 



on mouseUp 
.global gArmSprite , 

pupp>etsprite gAxmsprite, false 

go to. frame "intro" 
end 
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Score Scrip148 



on exit Frame 

repeat with x = 45 to* 47 

" set the visible of sprite x - to false 

end repeat 

preloadmember member "you've got rythm' 
. puppetsound 2, "you've got rythm* 

. end ; • 



i 



/ r 
■ I 
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Movie Script55:DrumTimers 

* * • ■ i 

on StartUserDruraTime howLong, doWhat . [ 

' -r start timing while user should 

be repeating beats etc. 
• Global gUserTimeOutTime, gTinteOutHandler „ y 
put the Ticks , + { howLong into gUserTimeOutTime 
put . doWhat into gTimeOutHandler ' ' ' -V ■' . 

end .- .-. ■'. 

on CheckUserDrumTime 

. Put in exitFrame of looping test frame 
.. ■ - - to cheek for end of user ' s repeating time 
global gUserTimeOutTime , gTimeOut Handler , gLEDMan 
if the ticks < gUserTimeOutTime then \ 
UpDatebEDDisplay gLEDMan, 
_ ' exit ' .• \V; ; - 

else . *' ■■; . ' ■' ' .- L . ■ ■ 

. , f inishLEDDisplay. gLEDMan 
dp gTimeOutHandler ''" , 
set gTimeOutHandler = empty - , :■' 

' • ■ ■ ■ . - ■ ' ' 

' end if . ■". ■ : 

end * ■ ■ . . * • ' . . y. • . - . ! • 

on CaJicelUserDrumTime' ; ^ - 'v 

use to cancel put timer of user's drum. time. * 
global gUserTimeOutTime / .gTimeOutHandler 
set gTijneOutHandler = empty 
. . set gUserTimeOutTime = empty 
end . - 



i ■ 



I > 
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Movie Script56:Put Up Notes 



on -PutUpNote whichNote 
global gNoteSprites 

set Notesprite getat (gNoteSprites, whichNote) 

case (noteSprite) of 

10: set the loc of sprite 10 to point (265, 45) 

11: .set the loc of sprite 11 to point (298 , 45) 

12 : set the loc of sprite 12 to. point (335,45) 

13: set the loc 1 of sprite 13 to point (367 , 45) 

14: set the loc of sprite 14 to point (397, 45) 

end case - • • - 

urxia test age 
end 



Movie Script57 



) . 



on doOverDisplay userHits - "'' 

global gNoteSprites 
. set howlong ■;== 5 

' set Note = getat (gNotesPrites, UserHits) 
set NoteBreakUpList = [ "note 2 "note 3"] 
repeat with Not eName in NoteBreakUpList 
•. set the inember of sprite note = member not eName 
updatestage 
' wait, howlong - .", : 

V end repeat. 

set the loc of . sprite' note to point (10000, 10000) 
updatestage . * . ■ : ' 

set the member of sprite note to member "note 1" 
end v " ' ' I 1 



' 1 



, ' 1 - ' 
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Score Script58 



on exitFrame 'V. 
global gRoundOver, glsoSound 
i f groundOver > true then 
• reportScores glsoSound - 
go to frame. * setUpTest " : 
else . • ••, " . 

wait 60 

.go, to frame * IsoSoundTest " 

, end if / \ 



end 



Movie Script59 



on /I^adMeinberNames whichCastLib, first, Last, f ieldName, NumWords * . 

. -- Utility to take' a consecutive '; group of members and feed their i . 

-- names into a field member for future use ; . 

put empty into member f ieldname 

set Linenum = 1 - , - : - 

repeat with x = first to last 
/if the type of member x of castLib whichCastLib = # empty then next repeat • 
if the number of words in the name of member .x of castLib . whichCastLib = Numwords 

then ; ' . ' ' ' * . 

put che name, of member x of castLib whichCastLib into line LineNum of member 
fieldname 

- .... . . . . . ■ • .. . . 

set Linenum = Linenum +' 1 

* end if •'. ' ' r V"' *" \ ■;■[ V ' \ .' ■ - .... '" ; • 

' end repeat'" /' -.. ; s ■ ... - - '. . - 4 r V : 

end. • ,"' " ' ••; ■„ . . '• .. • 
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Score Script63 



on exitFrame . \- 

global gSounds Playing, gNoteSpri tes , ghandcursor 
spritesOnList gNoteSprites 
if gSounds Playing - true- then 

go to the frame . / _'■ r .... 

' - else ; ' '. ■ •' * 

t go to frame "test" . ; ' 

cursor ghandcursor 
. * end if'. 

- . ,* ■ ■ •• ■ • 

'end ' 1 : 



; Score Script64 



f on exitFrame 

global gGame 

unloadSounds gGame 
. wait 45 
• ' cursor 200 
end - 1 
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Score Script65 . . s 

,' . ' ■ * • ' 

. ■* . . .. ■ • • 

on exit Frame 

global gGame , gTheName , gRecordKeeper gNoter /level , ghandcursor 
cursor ghandcursor 
noteSpritespf f gNoter 
set gGame = 0 

put setUpRound ( gRecordKeeper , gTheName, 4 ) into level 
if level =17 then' 

set level =16 
end i f 

put getGamePref s (gRecordKeeper, gTheName/ 4) into PrefList 

put "prefList = '^PrefList 

- , . . ■ . ■ ... 

" . if the runMode = "author*' then 

— ' set Level = 3 take out ! MM!!!! 

1 -r- end if 

if level < 7 then 

set gGame = new (script "Drummer" ) 
setUpTest (gGame, level , Pref List ) 

* 1 -. 

3 

■ exit 
end if 

if 6 < level and Level < 13 then 

set gGame - = new (Script "isoSound") 
setUpTest (gGame, level , PrefList ) 

• exit 
end if 

if level =13 or level =14 then 

set gGame = new (Script "syllables") . ... 

setUpTest (gGame, level , PrefList ) 
exit * ' •• .... 

. end if 

if level =16 or level = 15 then 

set gGame = new (Script "souridSegments " ) 
setUpTest (gGame; level /PrefList ) 

exit . 1 . 

.end if ' 
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Score Script66 

_ .. . 

on exitFrame 

global gGame, gRoundOver , gArmSpri te 



i f soundBusy ( 1 ) then go to the frame 
if gRoundOver = False then 

puppetsprite gArmSpri te, false 

set the member of sprite gArmSpri te = member /arm up 

spriteListOf f 

puppetsound (1,0) 

puppe tsound (2,0) . 

■ ' — go to frame * PlaySoundsV 

go to frame "listen", 
else •< 
reportseores gGame 

puppetsprite gArmSpri te, false 
set the member of sprite gArmSpri te .= member "arm up' 
spriteListof f 

puppetsound . (1,0) V ' »' 

puppetsound. (2,0) 

go to frame 'Qui tOrGoOn" 
end if 

end . \ ' ■- . 



Score Script67 



on exitFrame 

go to the frame 
end 



Score Script68 



on exitFrame 

playSounds gGame 
end 



j 
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Script of Cast Member69 



on mouseUp • 

go to f rame " intro 
end . 



■ T 



Script of Cast Member70 . 



on mouseUp • 

'. go to movie "dataTest" 

end . v 



Score Script I 



on exitFrame • ': 
Global gNoter : 
putUpNote gNoter 

end - ',- 



) Score Script75 



on exi tFrame 

Global gNoter .. ... \.' 
putUpNote. gNoter : 
puppet sound 2,' "you've got 'the. beat 
* upda test age \ -\ 

end - ' : ■ / - : ' ■ ■ . 



Score Script76 



on exitFrame. ; 
Global gNoter ' 
putUpNote gNoter 

end : 
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Score Script77 



on exitFrame 
Global gNoter 

putUpNote- gNoter ■ . 

2, 'that ' s right 



updates t age 
end 



Score ScriptSS, 



on exitFrame 

global glsoSound, gNoteSprites 

set gNoteSprites; - [ 10 , Ml ,12 ,13 , 14 ] 

playsoundSegs glsoSound - 



end 



I 
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Movie Script86:spriteServices r 

■ ■ ■ - "* » . 

i - • . . . -■ ■ ; ■■ . '. 

: . . * ■ . ■' ... 

I J ' 

" " "■ . '• ' " . ' ■ 

on spritesOnList Spritelist 7 - 

--Takes a LIST of non-consecutive (or consecutive) channels, 7. 
--.and puppets them. Must be passed as a list [], 

turns global list gSpritesOnList off first and • • 
then turns on spritelist and makes Sprit eList 

into gSpritesOnList 77 .. 
global gSPritesOnList 

if , VoidP(gSPritesOnList) then set gSPritesOnList ~: [;] 
if count (gSpritesOnList) > 0 then* 
. repeat with thisSprite in gSpritesOnList 

puppetsprite (thisSprite, false) 
end ■ repeat '- ' . . ; . / ■;. . 7 

repeat with thisSprite in spriteList ' !.«• 

. puppetsprite thisSprite/ true 
' /end repeat ' w • ' ■ 

1 set gSpritesOnlist = .spritelist ; , '- ; 

■ ■'else r . - ; ' ;\ V '■ " 

• ..repeat with thisSprite in spriteList 

puppetsprite thisSprite, true 7: 
end repeat 

set gSpritesOnlist -spritelist 

end if , / r ::V . ■ : • ; . .... 

end . ' / "' ' • - ■ <' ■ ; . ♦ . , 

,: - ■ " ■."•'...■•.«■•'''• : '-. . . 

on ■ sprit eListOff .' ; . '• 

^ turns off all sprites on Current gSpri tesonList 
and re- initializes that global ' , . 

global gSPritesOnList 

. if VoidP (gSPritesOnList) then set .gSPritesOnList = [.] ? 
repeat with thisSprite in gSpiri tesonList : 

puppetsprite thisSprite, false .\ \ 

end repeat 

set gSpritesOnList '= [] - ■ 

y . ... • ... • •.• • -. 

end . •• . - • 

• ■• • v . " . ' • 7 . v ' ■' : " ■ ' '■ '.. . . .; ' . 

on spriteson FirstSprite, LastSprite 7 % ' 

turns on sprites in consecutive channels from 
-- FirstSprite to LastSprite . 1 

global gSPritesOnList • '■ " : I 

if VoidP (gSPritesOnList) then set gSPritesOnList = [) • : 
if count (gSpritesOnList ) > 0 then 

repeat with thisSprite in gSpritesOnList - 
■; , puppetsprite (thisSprite, false) 
end repeat - . 

. set gSpritesOnList = {] 
repeat with' N = FirstSprite to LastSprite . " 

puppetsprite N, true > 
add gSpritesOnList, N 
end repeat ♦ - \\* ' 

else • • \ • : / 

.-: set gSpritesOnList =11 

■ repeat with N = FirstSprite to LastSprite 

puppetsprite N, true 7 . : 

add gSpri tesonList , N . - •. ; 

: end- repeat • 1 \ : . ' • ( ... , , 

end if , • . " . . "*'.'■ : 

end . • • - ' .. '. ■ ■ • ' * ... 
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on Spritesof f FirstSprite,* Last-Sprite 

-- turns off sprites in consecutive channels from 

^r- FirstSprite to LastSprite 

repeat With N = FirstSprite to LastSprite 
. puppetsprite N, false. - ... 

end repeat 
end 



h i 
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4 on wait Howlong 

New Improved wait handler . doesn * t reset timer 
-- every time it's called, be sure to "StartTimer in 
.-*• * on S tartMovie " v 
set x =; . the timer * 
put x into oldtime stores time 
repeat while (oldtime + Howlong) > x 
» nothing ;; > . • , • 

■■['. • . set x - the timer : . ' . 



end wait 

on wait Plus Howlong. doWha t • , : 1 

Same as above handler except that allows passing 
■ - - of a handler to. be executed during tne wait 
-,- . Handler must be a string \ 
set x - = Xhe- timer 1 : ;* ; " ' 
• put 'x into oldtime -*- stores time, - * ' ■>■ 

repeat while .(oldtime + Howlong) > x - * / ... 

do doWhat . must be a string ; 
set x = the t imer \ ; . • ~ 
. end repeat , 

end wai t .-' . . ' / ' '• 'r 

- .« , * i • •• . . 

on Igrio\eMouseDowns ' '• • • , • • 

if the mousedown then don t pas seven t 

end ; , ■ ■ . " - . * ; \ 
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Movie Scnpt88 

. ■ . , ♦ ■ 

on f indDupl i ca teMemberNames whichCastLib 
put "looking for duplicates- 
set NumMems = the number of members of 
set test edList> [] 

sort testedList ; \ 

• ' repeat with y- = 1 to nummems 

put "looking" 

set DupeList = ( ] ; 

if the type of member y of castLib whichCastLib = . # empty then next repeat 

set whatName = the name of member y of CastLib whichCastLib 

if getOne ( testedList ,whatname) then next repeat 

add" -t-es.tedL.i-st what name 

append dupelist,y , '• ! 

repeat with x = 1 to nummems ; 

if the type of member x of castLib whichCastLib = ,# empty then next repeat 
if x = y then next repeat ■ K 

if the name of member x of castLib whichCastLib = whatName then 

append dupelist , x 
end if 

end repeat 

i f count (dupe l ist )• > 1 then 

■ put ' "Member "kkquotek, whatName&quote&& "has these duplicates : "&&dupel is t 

\ , end if 
end repeat 

put "done looking" - ; 

end : ' • • ' 
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Movie Script89 

• '.**» ^ * 

■p t 

- , r a. . , - 

* ■ - * * 

on PlaySoundsinCast whichCast, whereStart 

plays every sound in the specified cast 
--• and. posts name and number in message window. . . 

This allows quick check of sound and if the sound is looped 
if not voidP (whereStart) then 
' set y = wherestart 
else ■" 

set y = 1 1 

end if .,. . 

repeat with x = y to the number of members of castlib whichCast 
if the type of member x of castlib whichCast =■ # sound then 
put x ScU the; name of member x of castlib whichCast 
puppet sound member x of castlib whichCast . 
updatestage 

repeat while soundBusy ( 1) 

if mouseDown ( ) = true then : t • 

puppe t sound 0 , 
> . exit •• 

return 0 • 

end if •. -'. : 

- ■ ■ ■ . . ** ->■ - 

end repeat ' 
end if 

! end .repeat • . " - ., : -• , j 

end' •.' ■ * . . ; ■ • . . 



» t 



Score Scripl9 : 1 



-in ex: t Frame ; 
, i f r ou : xibu sy ( 1 ) t hen 
a • to-, the frame . 
end if 
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on mouseUp; •" . - ' . y. 

' global gpausestatus, gLEEMan 
-V this button sends user to next frame f or ; 

replay routine. This filters out user mouseDowhs 
>- while the replay is occuring 

if gpausestatus .-<>■* resume" then 
■ - cursor 200 »; * •■ , . : 

set the mousedownscript to. " don tpass even t " : 
-. clearLEDDi splay gLEDMan '.■ 4 • \ 1 

/. go to frame The frame +.1- ' 
end if ; . ... • • • 

"■ • • ■ *. ■ * ■ 

end ' • « - 



y 



Score Scripti ". 8 •• . \\ 

' : , - • . . 3. • • • • ; ■ ■ - • 

( * * . • ■ ■ _ 

on ex it Frame.- - -V • " .; v • : . « ; - ; ' 

set right list-;- list ( "metal ". "blues." , " funk" , "pop rock", "soft rock" } 
«set x = . 'random -.5) 
•.put get at ( right list , x ) into- playmusic ■ 

puppetscur.c: i, 0 • \ * ; ; > -\ , 

pre 1 oadmembe r playmusic , •■ * -V . . . " . . 

puppet sound 1. playmusic V" ' ■ ■ v . >. 

upda tes t age ' " . ' i" 

end : ' ■ . ' ■ V . , . • " - » . " . ' 
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on mouseUp *' ,'■-.-. 

global gpausestatus 

set .gpausestatus' =' "resume" 

set the visible of sprite. 46 to false 
''■ go to marker (0^ 
■ pause :. " ;< 
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■ * * 1 ■ - . .. ..... ... ... ...;-.'^» , .' .-.r 

»'■*■>". 
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on exitFrame . 
' rt- unGomment this script for real play 
rr — . and deletete part underneath 
if soundbusy (2) then 
go to the • frame- 
- "else . " t .... \ > 

> puppet sprite 2, false 

go to frame "rightmusic" 

end if" ' 



end 
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s ■ i ■ ■ ; 



on ex i t Frame 

puppetsprite 2 . 
, updatestage 

end • • ■ 



false 
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Score Script 133 



on enteff rame : ; 

global gCame . ; 

reset Play gGame >■] 

puppe t sound 1, "listen- ? 

updatestage " * 

set sylNum = 0 

set oldTicks = the ticks, 

repeat while soundbusy(l) 

if (sylNum .< 2) and (the ticks > oldTicks + 5). then 
set the visible of sprite 9 to true 
updatestage ■': \, ' 

wait 12 • ':. ■ . * ' 

set the visible of sprite 9 to false 
updatestage ' ' V * 

wait 12 . 
. set sylnufn = sylnum + 1 . 

' ' end if : - '•' " '"' - ■ 

end repeat i? . 

repeatSounds gGame " 1 

repeat while soundBusy ( 1 ) 

,. nothing ; ' . - > : >« • \ ' . - ■ ' "■ 

end 1 repeat • •-• ' : • •' - ' .. . 

qo to frame the frame-. - 1 • 

• • • / . \ ;■ • .. 

end . • ', - ' - '•• , ' . " 

■ ■ . * • . • -. . • •' , ■ 

■ - . ■ ■** . i • " 

i * ■ - .■ . ■. . - ■ . 

on exit frame • , ' ' ; ; 

.global ghandcursor- " 

set the mouseDoWnscript ' to empty / ( • 

. cursor ghandcursor " .. ;V . 

end .. . ':■ 



» 7 ■ 
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on mouseDown ; . ' 

global gGame , gPauseStatus. 
if gPauseStatus = "resume" then exit 
' . if : the clickon = 4 then c 
pass 

• . else . '• - 

. userDrumHit gGame . ■ 

T end ifV t ' ; 

end . . 



Score Script 135 



on mouseDown 

global gGame . gPauseStatus: 
.. if' gPauseStatus • = "resume'" then exit 

•if the clickon = ;4 then 
pass 

else ;- •; ': ' - ■ : : 

■ userDrumHit gGame 
end if ^ 
end 
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on mouseDown 

• g loba 1 \ gGame', gPauseStatur 
i f * gPauseStat ui 
i f . the; clickon 
pass 

else " ; \ .. , 
• ■ userDrumHit , gGame 
end if 
end 



- "resume" then exit* 
A- 'then \ 



APPENDIX A-145 



Score Script 137 



on mouseup s 

StartUserDr\imTime (300, "CheokUserHits gGame" ) 

end 
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on mouseUp 

global gpausestatus , gLEDman 

set gpausestatus = "pause" 

set the visible of sprite 45 to false 

set the visible of sprite 46 to false 

set the visible of sprite 47 to false 

sound stop 1 

sound stop 2 

puppet sound 0 

continue 

clearLEDDi splay gLEDman 

StartUserDrumTime ( 300 / "CheckUseruits gGame" ) 
startLEDdi splay (gLEEXnan, 300) 

end . ' , ; : 
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on mouseUp 

global qArmSprite 
puppet sprite gArmsprite, false 
' go to • frame " intro" . 
end 
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. on mouseUp 
\ go to frame "black" 

go to movie "progress 
end 
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on exitFrame 

Global gNoter 

putUpNote gNoter 

puppet sound 2/ "excellent 
end 
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on mouseUp 

repeat with x = 1 to 48 
puppet sprite x, false 
< end repeat 
puppetsound (2, 0) 
puppet sound (1.0) 

cursor 4 
go to frarte "black" 
go to movie ."progress" 
end . - . 



Movie Script"! 46:playAliSoundsAnd Segments 
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on exitFrame 

go to frame "test 
end 
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on exit Frame - . T 

global gGame,r gNoter 

init gNoter . ; ■ ' "\ 

notespritesOn : gNoter 
- . if the- game of gGame = #drumSounds then 
go : to frame "drum ..intro" . • •' 

. .' exit \ ■ .] v" • •;■ 

/ else ' '.. ' , ./ ';' ■ ■ .!■ ! ■■ ; 

\ . if the game of gGame = #IsoSounds then * 
-' , go to frame "drum intro" 

. ■ exit ; , •• 

else . . .. _ ■ ■ i\ .., 

. if the! game of gGame = # syllables then . 
go to f raime "drum intro" - 
■ \ ■ ' exit •• . - ; :•■'■>■ ■ -■■ . 

<• - . H w . .. - " 3 _ 

' - . »' , • * ■ ' 

» - . ' * ' i 

- else ■ . • 
- ' ' i if the game of gGame = flsoundSegments then 
v - ;." go to frame, "sound heard" 

.• ' ■■ 'exit ■ ,; " • •': 



\ end if"v: 
end if 
end i f 
end- if 



"end 



• > 
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on ex it Frame * 

go to frame -"listen" 
end v 



1 1 
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Movie Script 153 ;.. \ "* ■ ' " : \] ■ ' . ?" , '• 

on PlaySoundNamesinField whichField 

' set FieldLines = the r number of lines in field whichField 
repeat with x =1 to f ieldLines 

set ItemCount '= the number of items of line x of field whichField 
repeat with y = 1 to itemCount ,'• ; 

set sound = item y of line x of field whichField 
" put sound .i - . - * 

puppet Sound sound 

put sound &C& the number of member sound 

updatestage , . ' " 

* repeat while soundBusy (1) 

nothing ' ■ • ■ ' - * ' \ i - ' 

end repeat ' : . - 

* - "wait 5 • \> • - . . " • ; 

end repeat ... 
end repeat ■ 
end ,' - 1 , ;■ ' _ \ 

l \ . . ,;<»»' - . 

.•"''.** '■ ■ • ' - ' '• ' ' ' • " ' £ 1 " 

on f indMissingsoundsinField whichField, toWhichField 
put "start looking for missing sounds • " • 
repeat with a = whichField to toWhichField . 

if the type of member a = •# field then , . ' 

put' the name of" member A into thisfield 
-put thisfield . ; : 

. » •*' .'■ - ■ ■ • ' - 

.' set FieldLines = the number of lines in field thisfield 
repeat with x = 1 to f ieldLines 

set. ItemCount = the number of items of line x of field thisfield 
repeat with y\ = 1. to itemCount - . 

set sound '= item y of ..line ;X .qf* field thisfield; *" , ; ; 

-if sound = * " then next repeat > 

• • • i- - . . • - : - - 

if the number of member sound - - 1 -then '.• . 

: put sound&&" is Missing" t 

• . end if ■. * -, '-; • . . ■ . ... 

end repeat ■ \ \ ' . , . ■<" : ' : ' •. L 

end repeat. ,: ". «. • ' 

:- end if ■ * 1 - ' :'. 

». » • 

put return - , ' t - * '•" . ,: " 

'.' end repeat ' / - . * ( . . 

• ■• • . - . ■ '•• .' ■• ■ • - . i ... • . ' .- 

put. " finished looking; for missing sounds*'; 

end , ; ! '.' ' " ,. ' • , 

* . . - . 

on PlaySoundNamesandPieces whichField • 

;set FieldLines ~ the number of lines in field whichField 
repeat with x -1 to f ieldLines ' 

set ItemCount = the number of items of linex of field whichField 
repeat with y = 1 to itemCount ; . 

set sound ;= item y of line x of field whichField 
put sound * . 

'' puppet Sound sound :. 
updatestage . 
' u repeat while soundBusy (1) • 

nothing.. ■ •. ' [■ '*• . , 

end repeat •. - ■ 

wait 5 ■ • ■ ; • • ' : ' ' ..*•.- 

.repeat with 2 =• 1 : to t he. :ui;n! •• ■ words in sound 

put word z of sound 

. . . ' ; ' " ' • 

r ' ' • - ' 

* t 1 ' .... 

> > • ' . • 

It". 
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puppet sound word z of sound 
updates tage 

repeat: while soundBusy(l) 
nothing • 

end repeat * 

wait 5 . ' . .. - 
end repeat-; ' • " , ... ' . 

- - pu t sound & & t he number o f . member sound 

updatestage \ ' 1 . . 1 



end repeat 
end repeat 
end 
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on doMissingSouhdsCheck- * . * 

set tempGame = new (script ■" IsoSound" ) , 
■ set tempGame = 0 

set , tempGame .= • new (script "syllables" ) 
Fi ndMi s s i ng Sounds andSegm'ents tempGame 
set tempGame - 0 , , "." ' . 

[ set tempGame 1 = new (script " squndSegments " ) 
F i ndM i s s i ng Sounds andSegment s t empGame 
set tempGame. = 0 : X' .. . - ' ' 
end' '• ' 1 : 



APPENDIX A-1 50 



Movie Script! 61 :testfoBad Words 

- * * * ■ 

on testForBadWords listOfWords 

•;. set BadWordList -= [] 1 \ 
set isBad =0 . • 

set nuMlines =■ the- nunu>»r of line? of field "badWords" - 
■ repeat with x 1 to numT i nes : • 
'if numLines = ""then next repeat. ; 
set tentpList. = ."[]•• ; \ 

set riumWords- = the number of words in line x of field "badWords 
repeat with y = 1 to numwords . . '■ 

append templist, word y of line x of field "badWords" 
end repeat . • 

append badwordList; templist - : 
; end repeat v '.. ■■ 

put-. badwordList ' 
set x = count (badwprdList ) . 
' . . repeat with y = 1 to x " • ' . ■ . 

- if getat (badwordList , y) = lis tOf Words; then 
. ."set isBad =,1 V . , ." 

y ; return isBad • . ,' : i y • . »■ 

, - t- end- if . ' ' ... " " * ;.. " . • 

end .repeat. ; • • • , «■.- : : 

return isbad j . - ' :• ■ 

* ~ \ "* . ■-" 

'l ■ J-."".''. 

end . • :\ • 1 ■ , ■ '* : : 
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Movie Script 170 , ' 

«'■•*•_* * , . r ■ 

i . , - *.' " - 

on resetAllPurgePriorities 

-- step through all cast libs member by member and reset the 
— purge priority of each member to 3 
put "Checking CastMember Purge Priorities" 
set castLibnums = the number of cast Libs 
. repeat with x = - 1 to castLibNums .'. 

set Member Nums = the number of members of castLib x 
repeat with y = 1 to membemums 

if the purgePriority of member y of castlib x <> 3 then 
- ' if the type of member y of castlib x = # sound then 

put "reseLLir? PurgePriority of member y k&" of castlib" x- 
set the purgePriority of member y of castlib x - 3 

end i f 

'. end repeat - 
end repeat : 
put "Done. Checking" 
end 



Movie Scriptl 7 1 



on Check Pups 

set tempi ist - [ ] 

repeat with x -,1 to 48 : 

if the puppet of sprite x = true then 
append tempi ist. x 



end i f 



end repeat 
put- tempi isi 
end 
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on ex it Frame 
sound stop i 
'puppet sound 1 . 0 

end 
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Score Script"! 77 



~>n exit Frame 

if. ^oundbusy ( 2 ) then 

• go to the frame 
end if 

end 
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on exit Frame 

[ ... : 
end 




on exitFrame 



end 
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on exitFrame ' 
if soundbusy ( 2 ) then 

go to the frame 
end if 

end 
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Score Script 186 . 



* » i 



on exd-t Frame : • ; 1 '■ ' 

global gGame ■ / ^ ■ ' ' . • 

. check if . prefs say we need to so to the 

next frame for prompt, otherwise go to , into and 
- - start . again',- • ■ \ 

\ if . skipYesOrNo ( ) then • 

unlo.adGqunds gGame, . - •; . 

. • resetAl lPurgePripriti.es just in case 

v go to frame "intro*. > \ ■" '• ; ■ 

end if \ . * ; - \ " . 

end . . * , "* 
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V 1 «■ 



■i i . 



on mouseUp . " v ■ .. _*••.' 

global gGame . ■- V/ 
-sound : stop 1 '- ■. -' , 
■ sound stop 2 , . -> *" 

' puppet sound 0 ' . 

repeat with x to 48 

v puppetsprite x. false . ; • 

set the .visible of sprite; x to true 
'.. end repeat : ' - '..•■« 

i f ob j ect P {.gGame ) then . unloadSounds gGame 
- resetAl lPurgePr ior it ies just in case 
cursor , 4 • .; . : ■.' 

go to .frame "black" ; ; * • 

'.. go to movie "progress" .... 1 : 
end ; 
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Script of Cast Member! 89;pause pict 



on mouseup . . ' 

puppetspr : te 45. t rue • - , / ' ■ 

r.-rt the member of. sprite 45 to meirber ■ "resume .pi ct ■ 
updatestage . ", - •: ■ 

' .-t-- p-.v:se - ■< ; V: . , - . \ , r! [ ' 

set the Visible of sprite 46 to false 
pause' ■ : 



- - end 



Script of Cast Member190:resume.pict 



on mouseUp ; ' ■ 

. global gpausestatus 

\ set gpausestatus = "pause" . [ 
set the visible of sprite 45 to false 
set the visible of sprite 46 to false 
set the visible of sprite. 47 to false 
sound stop 1 > .'' 
sound stop 2 , ' ■ • - ' *■ 

puppetsound 0 _ ., 

. continue 



end 



j - 



« , 



APPENDIX A-1 55 



Script of Cast Memberl 91 :rappers8 *dir PICT0228 



on 



, . gpausestatus 



if the visible of sprite 47 ^ false then 
if gpausestatus = "pause ""'then 



end 


if • 












r " 


» 

.set 


the 


visible 


of 


sprite 


.45 


to 


1 

true 


- .'set v 


the 


visible 


of; 


sprite 


47 


to 


true . 


else 




i. 












set 


the 


visible 


of 


sprite 


47 


to 


false 


set 


the- 


visible. 


of 


"sprite 


45 


to 


false 


set 


the 


visible. 


of 


sprite 


46 


to' false 


end if ; 


* ' ■ . ■ . •« 








i . 





u 



[ -- puppet sprite .45, true 

■ . • * % 

/end . i . 



•i • 
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; on mouseUp . ' ' 

global gpausestatus 



if the visible of> sprite 47 = false then 
■ : if gpausestatus .- ."pause" then • 

set the visible of sprite 46 to true 

: end .if '■ . , . • . " 

t , . i ■ * », * 

set the' visible of sprite 45 to- true 

set the visible of sprite 47 to true 

else. ' 

• . set the visible of . sprite 47 to false 

:: set the visible of sprite 45 to false 

set the visible; of sprite 46 to false • 

end. if . " '> 



updates.tage 

— puppetsprite 45, true 



end 



4 t 



I - 
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Script of Cast Member 1 99 



on mouseUp 

■ global gGame 

sound stop 1 J , 

sound-stop 2 
puppet sound 0 
, repeat with x = 1 to 48 
puppet sprite x, false 
set the visible of sprite x to true 
end repeat 

if objectP(gGame) then unloadSounds gGame 
resetAllPurgePriorities just in case 

: go to frame "black" 
go to movie "progress" 

end 



Score Script200 



on ex it Frame -\ 

preload (the frame-*- 1 ) , ( the frame +4 ) 

preload member 18 
end 
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Parent Script 1 ;PrintPlaceManager . ; = ' * v 777 

■ - ■ . - . •• .. > 

, - ' _ ' , i • . 

Property pDatelField, pDatelFielclSprite , pDate? Field, pDate2FieldSpr i te , 
pCur EditableFieldSprite ., .... . . - : 

Property pDateFormatField, pDateFormatFieldSpri te, pDateFormat 

Property pObDataViewPref sMan, pDateFormatBut tonSpriteList , pDateFormat Choice , pPrintMode 

■ ■ ■ ... . ... 

on new. me - .•'■* . 

set pDatelField = "DatelField" • ; : : : \ 

set pDate2Field. "Date2Field" * ? 77 

set pDateFormatField = • DateFormatField" 

set pDateFormatFieldSpri te = 18 • 

put " " into field pDatelField • . : * " ..' 

put " m into field pDate2Field 
.", set pDatelFieidSprite = 14 

set pDate2FieldSpri te /'-=•' 16 V 7 .. 
: . set pCurEditableFieldSprite = 0 / 

•' ■ ' , " .•' ' • • r ' 

initDateFormatField rrie ... • ■ * - '•'..> 

\ set pDateFormatButtonSpriteList- = [7 , 8 ,9] '- ' • ' . 

, return me '■ •• ' . i; - • 

end, ■ 1 .. •" — v •'• .7 ••. ..' • • : , • ••_ ; . , ? • 7 • 7. •■; 7 - A . 

'■ * - * *" ; c * ■■' ' 

. » * — , 1 ■-.„■■. * ■ 1 

■ , - , - r- - '*,'"" ' h 

on drawPrintPlaceScreen me ( ; ; . ... - : . r • ' 

global gRadioButMan _ 'V* 

puppetSprite pDatelFieidSprite, true •' . 

; puppetSprite pDate2FieldSprite , true .. 
. initRadioButtons gRadioBiitMaji" " 7 

end .' . " • \ : :. V- \ t ' ■ ■'■ \ ■' 

on I^avePrihtPlaceScreen me ; 1 - \ : ' 
global gRadioRutMan • ; ... . 

puppetSprite pDatelFieidSprite/ false 
.puppetSprite pDate2FieldSprite # false 

KillRadioBut tons gRadioButMan . ' • . 

end , '.. " ■ • ' • ' 7* - 7- • .' ' ' ' "".-''.7' 

,. . ' ;• .... -' . • : ', • • - 7 ' : ■ ■ - ' • • ■ ., • :. . • 

on shutDown me ■■■.*.. ■ '. ■■<.■■ 

-t called when closing window to do cleanup ' , ; 

set the editable of sprite pDatelFieidSprite = false 
set the editable of sprite pDate2FieldSprite = false 

LeavePrintPlaceScreen me . . . . 7 

end. ■ -_ * ■ .., v : . ' k ' ' . 

• - . v - • ■ • • . ... . ■ •' - • . -. ■ • 

on makeEditable me, whichSprite ■ ; ; ; 

if pPrintMode. <> 3. then exit . ... 

if 1 whichSprite = pCurEditableFieldSprite then exit . ,\ 

set the editable of sprite pCurEditableFieldSprite = false 
set the editable of sprite whichSprite = true • 

set pCurEditableFieldSprite ,= whichSprite \ " . . ; 

if whichSprite = pDatelFieidSprite then 

set numChars = the number of chars of field pDatelField 

set the selStart = numChars * + i : ' , ' ' * : ' . ' v 

set the selEnd = numChars +. 1 f _ s . • 

•. else ' ' '• . , • 

set numChars - the number of chars of field pDate.l Field ' ' . 

.set the selStart f numChars + 1 7 ; ' v - ? ' 

set the selEnd = numChars + 1 7 ■ - ' .. .7-; 
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on ChangeEditableField me ■ 
' 'if> pPrintMode <> .3 .then exit 
if. pCurE^itableFierdSprite == pDatelFieldSpri te then 
. set the editable , of sprite, ppate2FieidSprite =. true 
: /.set the editable of sprite pDatelFieldSpr ite. = false 
set. pCurEdi tableFieldSprite ■ = pDate2FieldSprite • 

else ... ' • .v. ' ■ . / 

set' the editable of sprite pDatelFieldSpri te = true • 
set the editable of sprite pDate2FieldSprite - false 
. set pCurEdi tableFieldSprite ^ 'pDatelFieldSpri te ' 

end "if : . " v 

if pCurEdi tableFieldSprite = pDatelFieldSpri te then 
* set numChars = the number of chars of field pDatelField 
, set the selStart = numChars +1 
\ set the selEnd ■= numChars 1 

else , "■■ : ' ' " \ 

set numChars - the number .of chars of field. pDatelField 

set the selStart => numChars + 1 
" ' . set the. selEnd = numChars + 1 . . : .■ ' 

.■: 'end if <- • '.• ; ' 

end ; : ' • , ' ' ; > . ' 

. . • ■ ' • ■ ■ ■ ■ * ♦ ■ ■ 

on initDateFormat Field me \ ; > ' .*< . 

global gDataViewPref sMan ' . , . ' ■>/ : 
put getDateFormat (gDataViewPref sMan) into pDateFormat 
case pDateFormat of 

0 : set text! - "Month/Day/Year v . 
."• set text 2 = - 12/25/98" . ., . ■ 

1 : set text 1. = "Day /Month /Year" 

... set text 2 = -25/12/98". . ' ,. 
2 :set text! = ; " Year/Month/Day- 
set text2 - "98/12/25" ' 
. end case 

■put text 1 into line 2 of field. pDateFormat Field 
put text 2 into line 4 of field pDateFormatFi eld 

end^, ■: "'" " '- 

on drawMonUSDateScreeh me , 

' . . • ' .. - • : - - • i •. ;•. ' - ' 

repeat with thisSPri te in pDateFormatButtonSpriteList 

puppet Sprite thisSPrite,; true 
end repeat * . • 

set pDateForrnat Choice =. pDateFormat . *_ ' . 

', . case pDateFormat of , . 

/ : "0" : set MDY = getAT (pDa teFormatBut tonSpri teList , 1 ) 
set the member of sprite. MDY = member "rody down" 
"1" : set DMY = getAT (pDateFormatButtonSpriteList, 2) ..." 

set the- member of sprite DMY = member "DMY down" 
"2": set YMD = getAT (rjDa.teFormatButtonSpri teList , 3 ) 
set the member of sprite YMD = member "YMD down" 
<""; 1 end case • 

upda test age • i 
end. ' ■/ 

■ ■■ • 

* . --* . . 

7 ■ ■ ■ ^ ... * _ • 

' . ■ ■ . . ... . 

on Lea veNonUSDa t eSc rcen me 

> * * 
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repeat with thisSPrite in pDateForma tButtonSpri teList 

puppetSprite ^ thisSPrite, false \ ; . 

end repeat; ! '■ ' 

end 7 • 

' - - - ■ . 

on MakeDateFormat Choice me. whichSprite . ~ • . ' ' 

put word 1 of the name of the member of sprite whichSprite into pbateFormat Choice 
set ChoiceMemName =■ pDateFormatChoice "down" 

set pDateFormatChoice = Trans LateCho ice (me/ pDateFormatChoice)-' • 
set the member of * sprite whichSprite . = member ChoiceMemName 
repeat with thisSprite in pDateFprmatButtonSpriteList 
. if thisSprite = whichSprite then next , repeat 
. - set theName = word 1 of the name of the member of sprite thisSprite 
set the member of sprite thisSprite = member theName ■ 
end. repeat \ \ ' ■ - .- " \ , • ' * - . . ' / ' 

upda test age i lt *• ■ • 

end . ■ • ..• "... . ■ •. , . •• 



orr CancelDateFormatChoice me v . , .> \ . V 

put 0 into pDateFormatChoice ' : ■ .; .- %. . 

repeat with thisSprite in pDateForrnatButtonSpriteList 

set theName = word 1 of the name of the member of sprite thisSprite 
set the member of sprite, thisSprite = member . theName . 
end repeat . , . 

-updates tage . ,. : . . 

end **.••■ • ' •-" " ' • • ' • ... ' ' 

on conf irmDateFormatChpice me ■■>■' • 
global - gDa t a ViewPrefsMan '• 
put . value {pDateFormatChoice) into dateFormait 

setDateFormat (gDataViewPref sMan, dateFormat ). . * -\ 

: set pDateFormat = dateFormat ' • 
initDateFormatField me -7* 

end •" /'. • . 

V _.. - •' . . . . • . " 

on Trans LateCho ice me, aString.' 

case astring of . • , ••. 

"mdy" : return 0 ' 1 • " ' 

• '" "dmy " : return . 1 • ' 1 * V 

"ymd" : return 2 "y " , . 

end case . ■ : ..' •-, . 

end ' " *" \. •'■ 1 

on updatePrintMode me, PrintMode 

set pPrintMode = PrintMode ; . - ; 

set PrintText - * PrintMode '^pr in tMcde£c& " text" 

put field PrintText into. field "helpf ield* 

if PrintMode = 3 then / 

set the border, of member pDatelFi eld = 1 

set the border of member pDate2Field =' 1 

set the editable of sprite pDatelFieldSprite = . true 

set pCurEdi t abl eFie 1 dSpr i te = pDatelFieldSprite ... 

set. numChars = the number of chars of field pDatelField 

set the selStart = numChars + 1 
. set the selEnd. - numChars '+ 1 . ■ . ; ■* 

■else- " ; ■ , « : .. ■ 

\ put " into field pDatelField t " 

put " into field pDate2Field "\ . 

set the editable of sprite pDatelFieldSprite = false 

" ' ■ ' - ' . • : . ■= . * "' . ' ' 

APPENDIX A.1 62 



set the editable of sprite pDateZFieldSprite = false 
set the border of member pDateiField = 0 .. . 
,-\ set the border, of member pDate2Field = 0 

set pCurEdi tableFieldSprite = 0 . 1 ' * 

end/if ' ... • . 

* * ■ 

--other stuff tBA 
end; < ■ ' ... ■ ■ , ■ 



oh startRangePrint ing me . „ . . - 

'first; start at printing range ■ - * - : 

'global gPrintMan . ,'' . - • ' ■ . 

put field 1 pDateiField. into datel 
put field pDate2Field into date2 - 

if the number of words of date2 > 0 , then — something ' s there 
set doALert . = ' CheckJDateFormac (datel) + CheckDateFormat (date2) 

■ .else . ' . 

set doALert ' = CheckDateFormat (datel) 

end if ' ■■ 

• t . "' ■ • - . ■ - i .' 

if doAlert then - '. 

putUpAlert # Da t eForma tErr or 
exit •; . - a 

■ end if 

, '.■'■»-, , 

t • . . . 

if the number of words of date2 > 0 then 
PrintDa.taRange gPrintMan , datel, date2 
: else ' , . . 

PrintDataRange gPrintMan', datel 
' • .end i:f ■ ■ " 
end . ■ ■ ■ \ \ ■ "' r • 

on do Print n\e ; / 
case pPrintMode of .0 
1 :printOneSession me 
. 2 :pr intAilData me.,' 
« 3: startRangePrint ing me' 
end case 

end ■ ... v • •• ' 



on PrintOneSession me . 

global gPrintMan ■ 
P r i ri t OneSes s ion (gPrintMan) 

end . ..,»'-.• 

on PrintAllData me , ■ 

global gPrintMan ' *; 

* pr intAilData;. (gPrintMan) 

end ' . "■: 

on , doNoDat a InRangeError me 
global gPrintMan 

put field pDateiField into datel 
put field pDateiField into date.2 ?, 
if the number of words of date2 < 1 then 
- put the. date into da.te2 

* ' 1 ' ■ 
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end if . 

put sendPrintSpecs (g Print-Man) into aList 
set name = getAT(aList> 1 ) 
set game = getAT (aList , 2 ) 

put, game into word A of line 3 of field " 
put name into word 3 of "line 4 of field 
put datel into word; 1 of line 6 of field 
put date2 into word 3 of line 6 of field 

■ ^ ... .. . . ft . _- . . .... . * , . ' 

no data with the dates range so tell the user so 
putUpAlert #NoDataInRange 



NoDatalnRangeAlerttext 
NoDatalnRangeAlerttext 



NoDatalnRangeAlert text 



end 



on doNonS t andar dDa t eFo rma t Err or me 
putUpAlert # NonS t andardDa t eFo rma t 

end • - 



f ■ 
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Parent Script2:RadipButtonManager 

' l . - 

Property pBut tonSpri teLis.t . ■ pCurrentButton , .^-.pDef aul tButtonSpri te; 

pButtpnName. pBut tonOnName ■- . i . • * : 

' ' * ■ . *; * ' .* ' 

* j - ~ * p . 

on , new me, spriteList '. ; : . . 

set pButtonSpriteList = 'spriteList -- list of .3 sprite channels 
set pButtonName - "printMpdeBut ** ./ . , ." 

set pBut tonOnName = "printMpdeBut On" ': 

set ppef aul tButtonSpri te - getAT(pBut tpnSpr iteList/ 1) ■ }■ - 

return me - / // -. 

end ' ■ ' . , : .. . ■ - . ' . • . v * ; ; 

on initRadioButtons me . 1 

global gPrintPlaceMan ' 
repeat with . thisSprite in pButtonSpriteList . 

puppet Sprite thisSprite , true .... . ,'. " • 

end. repeat '. ' * 

if pCurrentButton ■= getAT (pButtonSpr iteList ; 3 ) then - - we're back here from an ale: 

set the member of sprite pCurrentButton = member pBut tonOnName 
. updatePrintMode gPrintPlaceMan, 3 •'. . *■ 

else we're here for the first time : - 

set "the 'member of sprite pDef aul tButtonSpri te = member pBut tonOnName 
set pCurrentButton . = pDef aul tButtonSpri te 
updatePrintMode gPrintPlaceMan, 1 - 
end i f .'. . * * • 

end " ■ ' ■, ' . ; . ' . j -V • t ■ 

•* ' - ' " . 

on KillRadioButtons me : • 

• \ . . . - ■ ■-, f . ■ ■•■ .. - . .. , 

repeat with thisSprite in pButtonSpriteList . 

puppetSprite thisSprite . false . ■.,"'■/ 

end repeat , 

end • " , " . •. 

on doRadioAction me, whichSpfite •• ' ' ■ 

global gPrintPlaceMan . . ■• 

if whichSprite = pCurrentButton then exit ' 
set pCurrentButton = whichSprite • 

repeat ; wi th x = 1 to 3 ' - ■■ , .- '■ " ... 

. set thisSprite = getAT(pButtonSpriteList ... x) : y 
.'.if thisSprite =? whichSprite then ^ • . •■. t •. 

. set the member of sprite thisSprite ■- = member pBut tonOnName ' 
else - 

set' the member of sprite thisSprite = member pButtonName ' ■ 

end i f -"• ■• ''« 

end repeat - ' 

set PrintMdde = getPos (pButtonSpriteList , whichSprite) . . 
.updatePrintMode (gPrintPlaceMan, PrintMode) 
end « " 



> i 
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Parent Script3:PataViewPreisManagef ; \ ; "Y % ' 
Property ancestor, •pDateFormat, pCastLibName 

on new me ". . 1 .' ■ • . - • * ■■ , 1 

global gRecordKeeper ; . •" \ - V 

set ancestor r- gRecordKeeper . ;> :.' 
£et pCastLibName - the cast LibName of ancestor :* 

- return me ..•*./ " v ■. ; ' ■ - '■' '- 
end- ' '" ••' V '. \ ; . .• ; , . ;- / - . ; * - : * . '" 

• - -' - ' i ' ....*',.-•■ • . . ~ . . ■- - ■■■ . ■ .■ 

on getDateFormat me ? \ .'. • . /. : ' , * • 

' returns 0, 1 /or 2' which is stored in line 1 of 
--.dataView Prefs cast. If cast not there it makes on v 
. and returns 0 to start as a default: ' ; .' ; 

0 means MM/DD/YY " . :■ .'' -•- /. ■ /' ;" , ' -. *- 

/' 1 means DD/MM/YY * \ . ■ : - . ' "'" * : 

' 2 means YY/MM/DD • V .\ - *, 

• openrecords me '/ ! ' ; . , ;• 

if. the number of member "dataViewPref s " of castLib pCast LibName = -l then 
-- no prefs so make new one • V .. ' 

new # field, member 5 of castLib pCastLibName , - 
put 0 into line 1 of field 5 of • castLib pCastLibName T • \ 
. set the name of member 5. of castLib pCastLibName = "DataViewPref s " ,. 
! set- pDateFormat = 0. • 
saveRecords me . ' .. .. 

CloseRecords me ' 
1 return 0 . • • * * 

. .else ' • ■ , • ■ .';*, • ■/ .' •" . \ 

set pDateFormat - line 1 of field "Da taViewPrefs * of castLiL pCastLibName 
CloseRecords me ' > . • 

return pDateFormat ; \ , : 

* end; if \ . - . : " ■ . ■ \ " 

end . ■• ' \ . ' . '* : ! '- • • 

• ' •• * ?; ' 1 . - ' • • ,■: . ■ . ' . . ' '. ■ v : ' 
on setDateFormat me, formatToSave ' " •'. ••• *' 

---"stores 0,1, or 2 which* is stored in line 1 of . 

dataView Prefs cast. If cast not there it makes on T .-" / 

and returns 0. to start as a default . ' \: - 

".. 0 means. MM/DD/YY \ ' , ' " ' 

- . 1 means DD/MM/YY .* *' . 

; 2 means YY/MM/DD ' - ; , 

openrecords me - . ■.. ■ ~ . • - • ' 

. if the number of member •dataViewPref s of castLib rkrast LibName =. -1 then , 
•■ ■ no prefs so make new one * ' ^ 

new #field f member' 5 of castLib pCastLibName 

set the name of member 5 of castLib pCastLibName = "DataViewPref s " 
fend if ; . : ■> ' ■ 

put formatToSave into line 1 of field 5 of castLib pCas.t LibName 
set pDateFormat =. formatToSave 
saveRecords me 

CloseRecords me . ' ' s; . 

. ■ ■ . . ; - • t * * ■• • 

end . ; .. • • . 
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Score Script6 



- v ■-. - ■ r -' 



i 



Script of Cast Member! 4:PrintRange 



on mouseUp .-; .v \ ,' 

global gPrintPlaceMan 
startRangePrinting gPrintPlaceMan 

end 



Score Script15 : 



on mouseDown ' -'V •,. ■ 

global gPrintHan, gPrintPlaceMan, gVoid, gRadioButMan 
if legalButtonHandler ( ) then 

shutDown gPrintPlaceMan 
( set .gPrintPlaceMan = gVoid 

set' gRadioButMan _ = gVoid 

closePrintPlace gPrintMan •: '. 

end ' if ' ' ■ . " V 

end • •; .' • . ^ ■ ".- . .*' .•- . 



r . 



I, ■ ■ 
► « 



T . 



Score Script 19 



on exit Frame ; 
: go to the frame >' 
end ' .. 

- - ' • . . . ; . '....„ 

* * * " j 

on keyUp - . • . 

global gPrintPlaceMan 

if." the keyCode ... = 48 tnen ; TAB 

ChangeEditableField gPrintPlaceMan 
" else if the keycode = 36 then ----- space then 
doPrint gPrintPlaceMan ^ 
end if.. - • • \ , •. 

end • 
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iviovie oenuuiu 



on startMovie 
global 



gRadioBufcMan 



if not objectP { gPrintPlaceMan) then 

set gPrintPlaceMan = new (script "printPlaceManager* ) 

end if -1 ■■ - \ ■ ■ ' -. ; , ' ' .- 

if not obj ect P ( gRadioBu tMan ) then ^ 

■'.set gRadioBu tMan = new ( script * RadioBu t tonManager " [20,21,22].) 
list is radio button sprites, first one is default 

end if . . - V * ' ' ■ : 

• ■ ' . . "i : 

. . • ' : . •".«*'. 

initFields ■' , v ■'■■'< ■ -y 



go to 
end' 



on stopMovie r 

global gPrintPlaceMan, gVoid, gRadioBu tMan 

set gPrintPlaceMan. = gVoid f 
; set gRadioBu tMan = gVoid 
end ' - 



on initFields ' > . • - ' • •■ \ . ; v '\ -;. - 

" global gPrintMan - ' . • ,". , 

put the date into field "todaysDate" 

set the textsize of field ■ todaysDate" =36 » - 

put 'field •PrintThisSession refill" into field "PrintTh is Session" . - 
put field "PrintAllData refill* into field "PrintAllData" ' : 

put field -RangeTi tie refill" into fiel'd "RarigeTi tie" ^ 

set PrintSpecList '= sendPrint Specs (gPrintMan) returns strings of user, game date 
set user = getAT{ print Sp>ecList,l) 

set game = getAT (prihtSpecList, 2 ) ■ '"' ' 

set theDate "= getAT (printSpecList. 3) . " ' 

put theDatek" ." into word 6 or field "PrintThisSession"" 

put game into word 3 of field "PrintThisSess ion" . : 

put user&" • s" 'into word 2 of field "PrintThisSession" 



put game into word 9 of line 1 of field "PrintAllData" 
put- usertcV s" into word 2 of line 1 of field "PrintAllData 

put game into word 3 of field " rang eTi tie" 

put userfcr" ' s" into word 2 of . field "rahgeTitle" 

• - * ' * - « 

put field "Printmodel text • into field "helpfield" 
-r set the border of member "helpfield" 1 
set the margin of member "helpfield" =4 

end • ' ., ..- ' : 
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Score Script21:DateF»eWSpriteScripts 



on mouseUp = . ; , 

. r global 'gPrintPlaceMan ; ' , 

set mySprite = the cliekOn 
'. makeEditable gPrintPlaceMan*, mySprite 

end : . - ; 

..*.»••'. ' - •' ^ 

oh Key Down 

global, gPrintPlaceMan 

case the key code of 

36: ChangeEditablef ield .gPrintPlaceMan — return 

51: pass delete 
otherwise checkFor Legal Keys . 
end case - 1 .. \ 

end • 



oh checkFor Legal Keys 

■it •1234567890/- contains the key then pass 

end . . ; . ' • ' V . • 



Score Script22 



on enter Frame; 
' global gPrint Placeman 
drawPrintPlaceScreen gPrint Placeman 
initNoDa'talnRangeAlert /,'. 

end - • > ' 



Score Script23 



on exi tFrame 

, • go to the frame 

end 
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Score Script33 



on mouseUp 

global gPrintPlaceMan * ;-■ - 

set mySprite = the ClickOn ^ • .. 

MakeDateFormatChoice gPrintPlaceMan, myCprite 

end • 



Score Scnpt34 



Score Script35 



on enter Frame 
global 

; drawNonUSDateScreen gPrintPlaceMan 
end 



Score Script36 



on' mouseUp ■? . 

global gPrintPlaceMan ,. 
Leave Pr i n t P 1 aceSc r een gPrintPlaceMan 
go to "NonUsDates" 

« ■*. 

end .. . . 



•J 



Score Script37 



on mouseUp 

global gPrintPlaceMan 

» » ■ 

end 
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Score Scripi38 



on exit Frame 

go to the /frame 
end 



Script of Cast Member42:ConfirmForrnatChoice 



on mouseUp . 
global gPrintPlaceMan 

conf irmDateFormatChoice gPrintPlaceMan 
LeaveNonUSDateScreen gPrintPlaceMan . 
go to "printPlace* 

end ' . •' ' , 



Script of Cast Member43:ExitToPrintPlace > 



on mouseUp . *- ' 

global gPrintPlaceMan 
' LeaveNonUSDateScreen, gPrintPlaceMan 

go to "printPlace* 
end 
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Movie Script44 



on; Checkl> teFormat dateToCheck 
. put the i tomdelimiter into GldTtemDlmtr 
set the • it erode limiter to "/" . 
if the number of; items' "in dateToCheck <> 3 , then wr-ong 
set the itemde limiter - OldltemDLmtr 

' • - 1 

. return 1 . • . . " 
else - , ..' " . '■ 

repeat with x = 1 to 3 

if item x of dateToCheck < = " " then."'. '■ ■ ■ . 

' set the itemdelijTiiter = OldltemDlrhtr ' t 

return .1 \ >; \ , 

end if ' • . .'- ■ \ - 

end repeat -. 
set the itemdelimiter - OldltemDlmtr 
return 0 . ,v. , , . 

end if •• . . ; • : • , :, . 

end '■ . " ^ '"' V - ■ ' - - .". y 1 




. . . . ■ ■ . ■ >...•■.• 

-■:.<.■."-.•■".-■.. " - ■■ .•■ ■- ■ ' ' 

-''}■ ■ ■ :- : ' ' ' . ■ '- - ' " 

' ' : : ■•"''*.■' ' ' .. 

■ '. . ' : .. .. ».'.•.■» . »• 1 ■ / . 

• Movie Script45 v ^ - " 

on putUpAlert whichKind • . ,; 

global gPrintPlaceMan : . / 
if whichKind = # Da teFormat Error then. 

LeavePrintPlaceScreen gPrintPlaceMan. - - 

qo to "DateFormatAlert'" ! V • 
■ .exit • . v :. ' • ' ' 

end if ' '• ' . v . . • 

'if whichKind"- : #NoDataInRange then ' 

LeavePrintPlaceScreen gPrintPlaceMan . .-. «■ 

go to "NoDatainRangeAlert ' ; • 

exit " ' •• ' ; '• .' ,•; ' ' " 1 . ;• - 

, • end if .• ' ' '• • ' 

' if whichKind - #NpnStandardDa teFormat then 
- LeavePrintPlaceScreen gPrintPlaceMan 

go to" •NonStandardDateAlert" 
•• exit- . - ••• : 

end if , ,. ! " :>. . .' ... : >. 

■end . ' .. ' 
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Score Script46 




on mouseUp 

go, to 
end 



Score Script47 



on mouseDown " 
global gRadioButMan ' 
■i set mySprite .= 20 
doRadioAction gRadioButtiari, mySprite 

end ■ , * 



i * 




Movie Script48 



oh initNoDatalnRangeAlert "•' • ' 

' put field "NoDatalnRangeAlerttext refill" into , field "NoDatalriRangeAlerttext 

-- set the fontsize of line 1 of field "NoDatalnRangeAlerttext" -- 36 . 

-- set x = the number of lines in field "KoDatalnRangcAleittoxt" ■ . 

-- . repeat with y = 3" to x .'. " ' ... ' : 

__ . se t the fontsize of line y of field "NoDatalnRangeAlerttext = ,24 

end . repeat .'■ ' '. ' " ~ . • • ' ■ '•; ' ' ; 

end ' ■ • . 



Score Script49 



on mouseDown 

global gRadioButMan 

set mySprite = the Clickpn - 

doRadioAction gRadioButMan, mySprite 

■\ end ' % 
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Score ScriptSG 



on mouseUp 

global "gPrintPlaceMan 

Pr in tOneSess ion 

end 



V 



Score Script52 



on mouseUp 
.. global gPrintPlaceMan 
PrintAllData 
.end 



Score Script53 



Score Script54 



on exit Frame' 

go to the frame 
. end 



• -r 



on mouseUp 

go to 
end 



Score Script59 



\ . 



on mouseDown 

if legal butt ohHandler ( ) then 
global gPrintPlaceMan 
doPrint gPr intPlaeeMan 
end if . 
end ■ . ■ . " 



• i 1 
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Score ScripteO 



on mouseDown 



set mySprite 21 . , . 

doRadi o Ac t i on gRad i oBu tMan , , mySprite 

' end : .. 



i .- 



Score Script64 



on mouseDown 



set mySprite =22 
doRadioAction gRadioButMan, 

end . 



APPENDIX A-1 75 



.i 



Movie Script67:LegalButtonttandler 
on LegalButtonHandler 

t* - 

'. " r * 

set 1 Roll oyer = TRUE 

set clickSprite =' the clickon . 

set. lButtonUpName = the name of member 

set lButtoriDownName = 1 Bu 1 1 onUpName U 

set the member of sprite clickSprite = 

updates tage 



* ■ * 

(the member of sprite clickSprite) 
.Down" 

member 1 Bu 1 1 onDownName 



repeat while the stillDown = TRUE 

if rollover (clickSprite) - TRUE then, 
set 1 Rollover = TRUE 

set. the membernum of sprite clickSprite = 
. updatestage 

else ' ,- \ 

set 1R61 lover = FALSE i- : 
set the membernum of sprite cJickSprite == 

updatestage 

end if • . - 

end repeat 



i ■ • ■ * 

the number of member lBu t tonDownName 



the number of member 1 Bu 1 1 onupName 



if iRol lover = FALSE then return 0 

i 

■ _ « 1 

set the membernum of sprite clickSprite 

updatestage 

return 1 

end LegalButtonHandler 



= the number of member 1 Bu 1 1 onupName 



Score Script68 



on mouseUp 

go to "print Place 

end « : 
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XXX 



on mouseUp 

global gPrint>Ian, gPrintPlaceMan, gVoid, gRadioButMan 

shutDown gPrintPlaceMan 

set gPrintPlaceMan -= gVoid ' . 

set gRadioButMan = gVoid 

closePrintPlace gPrintMan . - ' 

end ' ' 



< 7 - 



i . - t 



■ ! 



i- 
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Movie Script 4 . - • : ' ; 

on startMovie : _ / '. , • 

global . . * ■ - .-, ' -V ' - / * ■ 

gcharlist , gthename, gchartlist , gOldscoring level , thegame, grecordkeeper /gorderList , gbigch. 
list, char tpro . ". •-'./". 1 - : ,'\ 

' . . * ■' . * > ' ■ . 1 ' 

-put getprostatus (grecordkeeper) into chart pro' . ; . , . . 

"- i- set char tpro = "0". --Test- . ": ' 



put getUserSkipGameList (grecordkeeper , gthename) into 'skiplist 
set skipbuttonlist [46, 48 , 47 , 45 , 43 , 44 ) 

repeat, with x = 1 to 6 , ' '„••., 

put getat (skiplist ,x) into skipgame . , , • \ : 

put getat (skipbuttonlist , x) into skipwhat sprite 

if skipgame =" 1' then \" < .*".* A . ! : ) 

set the visible of sprite skipwhat sprite to false - 
end if - ■ 



end repeat 



cursor 4; , : , - - • • ...V "... ' • ; ' / 

register (xtra "printomatic" POMX153-501-02580 - ) ■■ , .y . ; - - ■ . . , 

. puppet sound 1,0 . / '.* / '; . ■■ • 

- puppet sound 2,0 *"."*•;. ^ '~ ' . / - • ; A ; ^ • .•• '.. • 

■ . ■ • * • > ■*' . * * . * ■ • '*'■■. 

.."-»•' . . ' . - '■ • . ■ . 

. set gorderList - list () , \ - ' "-; .;• . , - 

set' gorderList = ■ ~ • 

[ -chartKaty" , " char t Eggs "chartFrog* \ "chartRappersr . "Chart Balloons ' , "ChartCoal " ] 
set gchartlist = list () . *' '. 

set the font of member "UserName" = "helvetica" ■ \ 

set the fontsize of member "UserName" = 14 '". * - 

set the forecoior of member "UserName" = the forecolor of member "color" 

.' . K 1 ■ .... 

put gthename /into field "username" ■ j 

put , loadchart (grecordkeeper , gthename) into, gchartlist , ' ■} ■ -. . , 
put getGameLevelLists (grecordkeeper , gthename) into gbigchart list 
put "gbigchartlist =" & gbigchartlist . - 

--set gbigchart list = [[3, 2. 1, i, *3, 1], (1, 0; 0, i; 1, 0, 0] ; [1, 0), [1, 0, 1, 
0], [2, 1, 0, 0], 11. 0; 1 # 0, 1, 1. 1 ] ) --TEST 



._ ... 
set x = value (thegame) ' ... 

if thegameoO then- 
put getat (gorderList , x) : into curr 
. deleteat (gorderList , x) 
append (gorderList .curr) 

end if 



if gpldscoringlevei = ; 0 then 
set goldscoringlevei .= 1 . 
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end if . 1 . - . ' : 

. — set go ldscoring level = 5 --TEST *, y-: 
repeat with x =37 to 42 

set the forecolor of sprite x = the forecolor of -'member "red" 
■ end repeat . '., 

set the forecolor of sprite 38 = the forecolor of member, "purple" 

pickplayball ' ■ 

■ > . . - ■■■■■» 

end . . • - - : . ',, ' . " .". • ' .. ' . ■■■ ■ ; 

♦ .». , *' I 

' ■ ' * % ^ - ' . . - . :j 

' ■ 1 - ■ % i' ■ 

on stopmovie . - ! • : . - ; . ; . 

giobal gdatasavepath ■/ : ■ 

. repeat With x '= 3 to 8 '«■' ; / 

puppetsprite x, false 

.'■■!••_.' : ■' ' * . ' . • ■ ' ■ 

end repeat ' •- < '•; . ' ; y ■ . . ~ 

if the runmode = "author" then \ 

v put "x" into field "UserName" ■■• 

end if \ " A .... '. 



set the font of member "UserName" =•• "helvetica" 
set- the fontsize of member "UserName"; =14 

set the forecolor of member "UserName" ■ =. the forecolor of member "color 
if fileexists (gdatasavepath & " temp.bnp" ) = 0 then 

deletef ile (gdatasavepath ■ & ' " temp.bmp" ) "' : » • • • 

end if • ; : " : . -.. - - 



end ' ' - ; ; ; ' "' . ; *\ . •* '. 

on buttoiiDownhandler ' ' , \ 

put the clickon into x . ' ■ 

"set buttonl^Iame = word 1 of the name of member' ■ (the member of sprite x) 

V ■ * • r * ' ■' ' ' , - 

set downbutton = buttonName "down" , 

set upbutton = buttonName "up" v , •• 

set the member of sprite, x, to member downbutton 

upda test age v 1 

repeat while the mousedown 
if rollover (x) then 

set the member of sprite x to member downbutton 
updatestage V . - ' > 

'"' - • else' ' • , 

set the member of • sprite x to .member upbutton 
updatestage :/ 

•' . . - •:" " ■ • •• ' . . 

■ 'end xf ' - - ,.' . 

end repeat ' : 

* •'.*»- !,.•»• * - ■•*''. ' * * 

end • ■ ; ; " ( - '" '*' • . 



on but tonU Phandler 

global gtheName. theGame 
put the clickon into x 
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put word 1 of the name of member, the mousecast into but tonName 
set ddwributton = but tonName "down" 
)'• • set .upbutton =. but tonName -up" V '." : " .; 

if the name of .member the mousecast = downbut ton then 

set the member of sprite x to., member upbutton • . . "'.*.. : 

upda test ago . . ■■■ ' • • ; 



.'. - - ' sound, stop 1 . * . 
-rr^~ puppet sound 0 ' 
cursor 4 



i - 



repeat with, x = 1 to 48 ,• , ' / 

puppetsprite x, false • *• . . 
end repeat- . . . 

if field "OserName" <> .:." then " 
•. put field "user Name" into th^.Mctme '" 

■ ■ ■ . ■ 

\ ■ ■ r - 

■ : s 'ot gtheName. - theName , 

case ( but toriname) of ' ■ ' . . 

-clown" : put ~ ^ ~ into theGame. ;j 
.;. go to frame "mac" ;'\ '\ , ' . ' : 

. go to movie "Karloori?" 1 ■ " . ; 

■ . .... v " ;• 

' '■ " .: • exit ... • \ . ■ . -> ,' 

' \ "coal " : put ,- (>r into theGame 
.'. . v go t<> frame "black-" * '. * " 

. go to movie "coal8" . 
Tapper " : put "4 " into. 'theG.ame 
. go : to frame "black" ' . 
go •> - movie ".rappersH" 

• ■ .-,"katy-'« -put ' "1 ~ into theGame 
. "_*. go frame "black" 

go to movie r Katy8"; , 
. . -' "frog" :put ." V into theGame;/ 

• . go to frame "blac 

, . go to movie "RhymeR 

: f armer " : put "2 ^^into , theGame *. 

go to fiame " black " • 
. " go ro. mr.vie \Eggs8" ' "~ r 

end case ■ ■ 

repeat with g = 3. to 8 
puppetsprite. g, false 

end repeat •.. •,- 

a - . 

else : ; * . " \ . 

alert "You must first select a player"; 
.go to marker (0) ; ■ 

end if * v ' ■ 

end if 



V ■ 



end 



on loadchart --not currently used 
global gthename, gchartl ist • '■; 
set gchartiist = list ( ) 
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■ repeat with x = 1 to 6 '• ' 

set tempi i st = 1 ist { ) 

put get j imscoringLevel (grecordkeeper , gthe'name, x) into char t scoring level 
put g-t.HicjhLevel ( grecordkeeper . a the name . into chart H iohleve.l ' 

-- ,; ! append tempi ist, x •. 

append tempi ist . chartscpringlevel '• / ■. 
. if chart Highlevel = V then set chart Highlevel = -0 

. append tempi i st , char tHighlevel, , 

T - put t empi ist .*■=. " & tempi ist 

append gchart list . tempi ist 

- end r epeat . ... \ - -. . * 

pu-' " vjclia: r ] i st U cjohartlist 

»*nd . "". . . ' ' 

i .*.■.. > . , . -' 

- . * • • - . • 

■■>"•■• «tt 1 -; r rie. I.i ::t. . ;-: i ; n.t < . ; 

.•'case iy;.. 6t_ . , , : .*. • 

■'-hai'tKa ty " ; ohartkaty , 1 • . ■ ' • . . " 

."• "cha'i t Eggs " : chart ecjgs \ . -•" > • 

" ■ "h i: t Fj .■••■g * • chart' frog • > 

. ;. "i .t: - Ka;.r e: : . chart rappers 

. . 7 rhax t Ba'I 1 m -.nr. " : chartba 1 loons ■ : "' • 

V -r-hai'tCod V- '-ha rt Coal ' ■ - . ' ; 

id case ? ' : ■ ■ 

-nd i at. ■■; \ ; - - 

• - f • :.e":a::>- - ■: * '•h-'-n ■ • •'. ; • - \ • ■; " ~ •• ;"■ " : 

« i upi'-^t c«"..'Vj;nd . ' . > . .;. 

p-uj.*pet r-v'urid 1. "main track" * - : . • < 

uifla" r ag*.- ■ . . - . 

end i f ' . . ■ ' ■ ' ■■ 1 ... . 

■ ■ ..*•.- 

. \ij.viat est age ' 

m i" ' ckj j l .r/l>a i i . • ' " .. • \ ' ' 

\/\ y\ \ /Oof x ' • ; r . , ^ . ' ( . ' 

put ' .ue ri;imiier ■; " f ines oi f ield ;i)a 1 1 sounds into numsounds " ,. : •'- 

. : -.-ouiicir. = i mi i ■ ion, ( numsounds ) ,; ' • ' 7 ' : 

p\K ', ine Ks* vind:;- -.-l f ielq "lya 11 sounds" into qsfx 
end . •' • : - • 



on chai.tKaty " : . ■ • ; 

global ( " •. * - 

gchairt l ist , thegame. goldscoringlevel , gsfx/scoringlevel . highlevel , minlist , maxl ist / spritelis 
1 1 roonsterlist , ^ ■ : 

ball chart , bal lmaster , goldscoringl ist , gscoringlist , newscorel ist , whatgame, gbigchartl ist , cha 
rtpro, special sound .. • .*. ' 1 

set specialsound = "katywin" 

set ballchart = ( [ "k_l_0" . : k.l_l'- # "k_l_2" # -k_i^*], i"k_2_0-, •k_2_l-, m k_2JZ? . 
•k_2_3-j. ["k_3_0", k_3_l-]] ' 

set bal lmaster = [1.2,3. j ( J, 2] • : . • 

. set v:h3tgame = " 1 " . . ; 

set ma>:list = '[ 3 . 3 . i , t JL . 3 . 3 ] ' . 

set minlist = (0,0 , 0.0.' 0.0] ■ , '." : 

set spi i tel is.t "=. [4,5,6,7,8*9) 
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--set goldscoringlist = [0,0,0,0,0,0] --Test 

put getat (gbigchartlist, 1) into gscoringlist ! _ t . 

". ."" ■ ' . " • 

set, katylist ■= list ( ) * r 

put getat (gchartlist, 1 ) ' into katylist 1 

put getat (katylist, 1) into katys coring level . . 

put getat (katylist , 2); into ka t yhi gh 1 eve 1 

set levelkatylist V ( [0,.4] , [5.8). [9,12] ,'[13,16], [17,20] . [21,24],- 
[25,28]* [29,32] , 133,36] . [37,-40] , [41,44] , [45,48] , ( 4? , 52 \ 53 , 56 ] . - 
[57,60] ] : • . '• ' ' • . • 'V 

1 . . ► .»..■■■ 

put count (levelkatylist) into listNum; 

repeat with y ■= 1 to listNum ■'■ l : 

put getat ( leyelkaty I ist , y) into ehecklevel ' 
put getat (che^klovv r : ,1 ) into d. . • . 

put. getat u-hevklev— 1 . 2 } into e . ■ * 

if ( katyscvv i.hg level > = d ) and ( katyscor inqlevel ■ <- e) then 
. set scot ina leve 1 ' - v 
end if • ,~ • ■ . .„ 

it < ka t yh i gh i eve 1 d) and 'katyhighlevel <- e) then 
set katyhigh level - y - 

end if • \ ■ ' 

> * 

if -thegaj.e, = " 1 r ? :>-n . .. . ». ; .» . 

if (goiqsc : ; :n,:, d) i:. i (geldscor inglevel ' < = e) then 

■ ■ ' ' set . g^lds • t i:-; : .^-vel - y " ' . - 

end if: 1 '.' : ' > - 

ena if . * ■ 

; -end repeat • • .• - : • '-7-- :" • , ' 

, f ■ . . . 

* ' 1 ■ ■■ " ■ . . - . ■ ■ ■ • . . 

put " katyscorihc; level " L scoring level 

put' "katyhigh level - b ^ katyhigh level. ' - 

" if. katyscoring level ♦ 15 then;- f ' 

•set katyscoringlevel - 15 . ' • . . . 

.end if • • • - . 
if katyhighlevel > 15 then _ \ .. 1 -J 

: set katyhighlevel .= 15 ' . , ' -■[' 

end if .' , ' ' \ 

set scoring level = 11 -■- TEST 
• set goldscoring level = 1 - - TEST ' 1 . 



GiveMeBalls \ 

-* i ' • ■ » 

• ■- . . . ' 1 - • • 

if chartpro = "0" then 

set katyVspritelist =■•.'•, 1 J > 

list (1000, 309, 309, 275., 275, 241, 241, 207 , 207. 173 ,173; 139, 139 , 105 , 105) 

■ set katyHspritelist = 
list (1000, 344. 374,344. 274.344. 374.344,374. 344. 374.344,374, 344,374) 

put getat (katyVspritelist , katyhighlevel ) into, y 
put getat (katyHspritelist , katyhighlevel) into x 
set the- locV of sprite 40 to y 
set the locH of sprite 40 to x 

set the visible of; sprite 40 to true ' ' _• 

* " ■ 
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updates tage . ' ' ' ' ■.. r ' ... , 

* else •■ - - t •; 

set the loc of sprite 40 to point ( 1000, 1000) 
set the visible of sprite 40 to-; false 

end i f , < / ■ ■' - ■ ". 



end 



on chart Eggs : " /• . . „""'■''' ..- . •'■ 

global" . *. \ " .... .: 

gcha'rtrist , t hegame. goldscoringlevel , §sf x, scoringlevel . highl'evel , mini ist , maxlist /sprite! is 
t , monster list . ^ . '~ ;■ ",, ' ' , ■' y 

bal ichart . ba 1 lmaster , goldscor ingl ist , gs'cor ingl is t •. newscorel i st , whatgame . gbigchart list . cha 
rtpro /special sound . ?\ ; . ..: v • '/ f ... ' • . .// ' 

set specialsound - farmerWin r .• -'\ 

set bal lcliart - I |"ej_0" ( "e_l_l V] v • [ "e_2_0- f "e_2JL;". * e:_2_2 - , "e_2_3 - : r e_2_4" ] ] 
set bal lmaster i [1.1,1,1.2,2/2] ' . , 

set maxlisr = ■ ( 1 , 1 ; 1 , 1 , 474 , 4 ] . • • • ;.. '-" • , y ■ : \' 

.set mini ist = [0,0,0,0,0,0,0] /""'/,'..• , ; • ' . ' . . . '/ 

. set spritelist = [10., 11 , 12,13, 14. 15, 16) . : • . / / - k.. 

set whatgame. = "2" ',. • \ f . : . '■- : > 

put getat (gbigchart 1 ist; 2 )' into gscor inglist- ; - .- 

• set" egglist' = list ( j • / ] ' -, ■'■ ... : \>- . ; ' 

put getat (gchart i ist , 2 ) into egglist • / ' y . : ' 

put getat (egglist , 1 ) into .Eggscoring level ' - ■. 9% , I * ; 

. put getat (egglist . 2 ) into Egghighlevel • ' . - " 

if ' Egghighlevel - 0 then . > '.- ' • *' '■' ': 

• 3et Egghighlevel - 1 ' . ■ • . . • ' \" : > «/" * ... . 

"end if ••" ' • - -. ' •'• .' .• ' . , . • . . ,. 

/•set level egg list = [[0.3] ; (4 . 11 ] . [ 12 ,20] , [21, 30] , [ 1 , 37 ] 38 , 44 ; ] , - ' ". 

[45.51) , [52. S8], [59,65]; ( 66/72 ) , [73 ,79 j ..[80,86], [87 ? VJ:, (94. 100] — 
liOl; 107] ; (108, 114], [115,116]] - • ■ 

" ■ r - . • - ' . 

f ' ' . ' ' I* , 

' " . ' ' , .' . L'f ■ . '. • v ■ ; ' ■', • 

put • count. ( levelegg list ) into l istNum 1 . ". \\. 

repeat with y - . 1 to listNum "' y ....... 

put getat ( levelegg 1 ist , y) into, check level ' 

put get at (checklevel , 1 ) into d 1 t - " - • - . . . 

put getat (check level . 2): into e ' - . * ' '• , r. . " •' 

if (Eggscoring level >='d) and (Eggscoring level <- e); then > . 

set scoringlevel = y t • '. • " s . - '' 

Vend if • • 
i.l (Egghighlevel >= d) and (Egghighlevel <= e) then * * 

set. Egghighlevel = y y ';. . . - • 

, ■ end. if ; • • • • . : ' ,. ; i. - •,: ;\" ." . 

if thegame - "2 m then . . . . '. ' • , ' " . 

i f (goldscoringlevel . >= d) and (goldscoringlevel <=e) then ' " : 

set goldscoringlevel = y • 

end if ' : - 

... end if , , - " .-. : t : : • . \ "* " ■ ;•■ , '." . '/\ 

end repeat " .' •;. • * ': '•• 



■ put. "Eggscoring level . = •■"& scoringlevel 

v.' ■ : ' ' > . ■ ■'. 1 '•• ' r -: " " - . > 
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< ■ 



put "Egghigh level = Egghigh! eve 1 

1 " : . ' ' .. . 

if Egg s co r i n g 1 eve 1 > 17 then ■ , 
' set Eggs coring level ' = 17 

end if . - ' V ' "• 

i f Egghigh level > 17 then - . ( 
set Egghigh level- '= 17 ; ■ 

end if . .... • ' " •• 



GiveMeBalls 



' i f chartpro = "0" then . . • , . : - ; 

set EggVspr itelist = ■*' / 1 ' ; »' 

list (1000/309, 309, 275 ,275 . 24 1 , 24 1 f 207.207 ,.173 .173 , 1 39 ; 139, 10S /105 , 7 1 ,71) 

- set EggHspr itelist '= "■„ ' .. / : ' - - v - -\ ' . •• 

list ( 1000 . 547 , 577 , 547 , 577 , 547 , 577 , 547 : , 577, 547 ,577 , 547 , 577 , 547 , 577 ,;547', 577) 
put getat (EggVspr itelist /Egghighlevei ) into y 
put getat (EygHspr itelist , Egghighlevel ) -into x ; 
set the i-ocV of* sprite 4 2 to y * 
. set the iocH of sprite 42 to x .. '■• '■ 

. set. the visible of sprite.. 42 to true. ; 

' ' ! upda test age - : .V . - * . . _ , . ' « * • •••*. 

else, ■-■ - v ; - , 

.set the loc of sprite 42 to point (1000. 1000) 

set the visible of sprite 42 to false . • 1 : * ' 

end if,' . * * , . ' • " " 



end 



i. > 



on test ■ .: . ; • ' • . \ - : ; , 

set l'evelegglist' = [ (0,1, 2, 3] . [4, 5, 6, 7. 8, 9, 1.0. 
11],, (2:13,14,15, 16, 17, 18.19. 20:]] : . j \ -V 

. ..set Eggscoring level - 6 , . ' 

repeat with x in level egg I ist /.'-. " 
-■ -i f Eggscoring level- - x. then- . . "V 

put getat ( leveleggl ist , x) ' ihto y . - 
put -y = ; " y ' r o 

" . end if ; ' " ' ." - . ' • ; • • 

. end repeat ' "' . 

end ... . ■ . • " • 

y ■ ' " • v '-' "■■ ' -'' ' ' . 1 • • . ;•• ■ " 

on getcastnames • * 

global wholelist ., . ■ ; 

set tempi ist = [)r . : ' 

set wholelist = (] ; 

repeat with x = 301 to 302 

append- .tempi ist, the name of member x 
. end repeat "' " , ;•• . . - • , ; 

append wholelist, tempi ist 

set templist = (] > ■ •/ ." 

repeat with x - 311 to 315 

append templist, the name of member x ' ' 

end repeat .. * ; . ' 

■ append wholelist , templist . . . - * " • ^ . 

set templist = (1' * [ - - 



put wholelist 
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on chart Ei oq ■ * > 



gchar t 1 ist, t hegamc , go 1 dscor i'ngl eve 1 , gs f x . scoring level. . highlevelvminl ist , max list ., sprit el i: : 
t . monster list . ; - / 

ballchart . ballmaster , goldscoringlis't , gscoringlist ^nevst orel ist , what game, gbigchartl ist . che 
rtpro, special sound V ? , .., .'- 

set -special sound - "FrogWin" ; / 

set ballchart = [ [ T f_l_0* .". > £_0" : "0_2*\ " f _i_3 ■" f Jl_4 * f .-f_l_5" ] , [.;- f_2_0" r 

"f„2^i-i w f_2_2*, :f^jO". ( vf^^-,"' ^f^2_5-', ^CiJ'-'li- ' ; . ', " 

set ballmaster = . [1,2] ';; ' \ "/ 'vo 7 ''- .. "* : ; 

set.whatgame '= " 3 " ... - ■* ■ v/ .' 

set . rnaxlist - [5/6]' . '•. *' \ . • " / - . > , 

v -set ' mini ist = (0.0] v :■ ; . 

..set spritelist - . [ 17/18] v . '-. '. ' " >> . : , • . " * : . 

-- set goldscoririglist - [ 0.0] --Test - . ' - , . 

.put getat (gbigchartl ist , 3 ) * into gscoringlist: ' , - , ^ * 

set- frog list - listO " : ..; •. . '-' • ' • ' ' 

put getat (gchart list, 3) into" froglist • ' / 

.'.pat getat ( froglist , 1 ) into scoringlevel . .' ■ • \ '■ • ' V ■ : . ■ 

put getat (froglist , 2 ) into f roghigh level ; ';: .;' 

• if froghighlevel = 6 then , " ' -\ / - : . 

set froghighlevel - 1 . \ : ••'.;«/• •:• ' . , _'• 

- end. if • . ♦ .• ■ . •• \ • . ..• • ' . '.' ■'> 

•' ■ ' . ■■ . ' '•■■"-"".'..;*' ■ • " 

■' '• . " ■ • "* • ■ ' . ■ • 

, .'put 44 Frogscoring level = "k scoringlevel '; \ ■ . ' .« ;'• 

put "Froghighlevel =. "L froghighlevel : '- ■ 

if scoringlevel > 12 then 

set scoringlevel = 12 " ' 

end., if - • ■•' ; • : : • - ' - -.. ■.■ ■ " - 

if froghighlevel > 12 ? then " ■ 
set f roghigh level, ■ = .12 '■■ ■ ■;: 

: end .if • \ _ . .- • : ., ' •• •• ; t ■ 1 / \\\ . * 

'set scoringlevel = 11 - .TEST : . : ; . * : . 

set goldscpringlevel = 1 ~- TEST " -\ 

' GiveMeBalls " . . = . s . ■ " . 

■ ' ' * •-.,..•.• •••. '. • ; . . ; : .- ... 

, " . ' ..." ' ■ ' > ' * • " 

, if chartpro. = "0" then ■ : ' 1 : ' • • 

... set FrogVspritelist ■ = list ( 1000 ,309 \ 309 . 275, 275 , 241 . . ,1,207, 207. 173. 173, 139) 
set FrogHspritblist = 1 ist (1000 , 447 , 477 . 447 , 477 , 447 ./- 7 , 447 , 477 , 447 , 477 , 447 ) ; 
put getat (FrogVspritelist; froghighlevel) into y * 
put getat (FrogHspritelist , froghighlevel) into x > , 
set the locV- of sprite 41 to y : " 

set the locH of sprite 41 to x _ ' ' J 

set the visible of sprite 41 to true ; • , 

updates tage 

.. else ; • [ . ; \ ' \ ' . 1 ' , , 

set the loc of sprite 41 to point (1000, 1000) 
; . set the visible of sprite 41 to, false ' ' 

end if " ■ / . 



end 



'•J 
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on chart Rappers 
global * 

gehartlist , thegame, gpldscoringlevel J gs fx .scoring level , highle^ spr it el : 

t , monsterlist , - 1 , •_ • . 

ballchart , ballmaster . goldscoringlist, gscoringl ist , newscoi el ist , what game , gbigchart list, r) 
rtpro, special sound \ , ' ' ' 

s'et speeialsound = "rapWin" •*:*■■ : ■ 

set ballchart = [ f-,r_llp.- ,- 'r_l_l ' , r„l„2 - . >r_I_3 " , >r_l_4" , " r_1^5- , *Vl_6 - ] . 
[ r r__2__CT, -r_2__l- , >r_2_2 w ) ] V ' ' • . "'■ 

•set ballmaster = [ 1 , 1 , 2 , 2], /' - . .. 

' set maxlist = [6,6,2,2] ; ' . , ' - . . - ■/ 

set. mini ist, = (0.0. 0.. 0) ' ' . . < . " k '' . 

.set what game - r 4" • , ; ' • • 1 ' '-"./' • .> 

•: set sprit el ist [ 19. 20, 21 , 22] : \ '\ , •: /" ■ 

% - put getat (gbigchart 1 ist . 4 ) into gscor i ngl i s . \ .. . 

.set*raplist = listO , ; • /. . ■ _^ ; ! . :. . ; /_> ' 

put getat (gehartlist , 4 ) into raplist • : \ ,'•• V .'. - • ' . ' . ■< 

put getat (raplist .1) into scoringlevel . • ■/ ;• i . . 

put'' getat ( raplist , 2 ) into Raphigh level ' >. - *' ; 

if Raphigh level = 0 then , ■,'•;..>' ... ,\ , ' ' : •' 

set Raphighlevel - : 1 . ' , • . * ... - = , - : . > . /\ 

end if ■' ... > .■ ' ' . • 

put " Raps cor ing level - ' U scoring 1'evel .. ; . 

put "Raphighlevel ,= "V Raphighlevel " . ' ... .. : : 

" ' ■'• - .>■-,' - . . - . ...... - ' .-'(-*"":.'.■". ' :. 

if scoringlevel > 17 then' . . , ■'• - •■ ..■•"* : ' ; • 

set . 'scoring level 17 '"* ■ * - > ' ; . .;. \ 

'•'end if . > .' . ; -.; '• " .• ' ; . ; 

' if Raphighlevel > 17 then ' d - ■ ; . - . . : 

set Raphighlevel = 17 / 

end- i f . - j ' .. " ; .. ' 

■ • • .' ■ ' . . ■ - • ■ . . * 

• ' '-r • '• ■•- ' ■ . / ' . '•' . . ' " 11 .' •: . ' " "... . •. : 

givemeballs ' - : • • . ■ "... :■ 

-* «. ■ ■ * . i ■ ■ 

• ' - ■* * ■ ' \ ■ 

if chartpro =. "O " then . / / . • • 

set RapVspr i bei ist ,= : '' . . ' 

list (1000, 309,309. 275, 275 , 24 1 , 24 1 .207 , 307 , 17 3 .173 ; 1 39 ; 1 39 , 105 ,105 . 71 ,71 } 

set RapHspri telist - ■• T . 

list (1000.243.273. 24 3. 273. 24 3, 273. 243. 27 3 .24 3, 273 ,243 ,273 : . 24 3. 273, 24 3.273) 

put getat (RapVspr i t el ist , Raphighlevel ) • into y . ". . . , 

put getat (RapHspritelist, Raphighlevel) into x 

set the locV of sprite 39 to y ' * . < 

set the lbcH of sprite 39 to - x . 

set the .visible of sprite 39 to true 

-~ updatestage , . 

else ' - - ' • . ' .. . 

set the loc of sprite 39 to point ( 1000 , 1000) - ^ 

set the visible of sprite 39 to false * 

end if ' . / : ' 

. ■' '. . . ■'*.'..-' 

j ^ * ■ 

end - .*.*'• - • ' 

. . ■ .- ' • . » ... • ' 

■" ' . ■ ' ■ ■ . • ■ • ■ > 

on chartBalloons . : . • . ■ r : . ■ '{'■ '•';,. 

global ' . c ; . /' • ;', • \ - ^ ; . ' " 

gchartlist , thegame, goldscoring level , gsf x . scoringlevel , highlevel . mini ist . maxl is t , spr i eel 
t /monsterlist , ^ - • . . • • 

* • i. ' - 
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ball chart , ballmaster , goldscoringlist /gscoringlis t , newscprelis t , whatgame , gbigchartlist . cha 
r t pro , special sound 

' set special sound = " karloonwin* k 1 

set ballmaster = [1/1,1,1] ' • 

, set balichart = [ [ "KarloonO; , "Karlopnl "Karloon2 • ] ] \ 

set newscorelist = (0,0,0,0] - . • 

set goldscoringlist = [0,2.0,1] - - TEST VARIABLE ; 
put getat (gbigchartlist, 5) .into gscoringlist / 
set whatgame = "S" .. 

set balloonlist = list() ( - - . \ ' - • - , '■ 

put getat (gchartlist , 5) into balloonlist 

put getat (balloonlist, 1) into bal loonscoringleyel 

put getat (balloonlist ,2} into balloonhighlevel . 

if balloonhighlevel = 0 then 

set ba 1 loonhigh] evel\ ~ . 1 . " ' . '• 

end if ■ , •• " ' . 

set maxlist = [2.2.2,2] • ■ . 

set' minlist =■ [0/0. 0, 0] . * ' . '- 

• set spritelist - [23.24,25,26] ' V ' -V : .. ■ : .' / 

■ set -monster! is *c = f 1 , 1 . , 2 , 2 , 3 , 3 , 4 , 4 ] ; -V 

set levelballoonlist = '. 1 ' \ 
[ [6:3] , [4,6], [7,121, [13,18], [19,24], I 25; 30] , [31, 34] ,.[35, 38] , [39; 40) j ■ ' 

put count ( levelbal J oonl ist ) into 1 istNum'. \ ' ' - ■ ! ( ; ' .: 

repeat with y - 1 to 1 istNum ■•* . " f _ 

put getat ( levelballoonlist, y) into, "check level • * 

put getat (checklevel . 1) into d . ■ 
put getat (checklevel . 2 ) into e * 

if ; ( ba 1 1 opnsco r i ng 1 eve 1 >~ d) and (ball oonscor inglevel ■<=■ e) then 

set . scor inglevel = y . ' . " . 7 . 

• ; end if • + ,■ • * ' . ; • •. 

if (bal loonhigh level >= d) and (balloonhighlevel < = e) then . , 

; set : bai'lponhighlevel y . . , ' 

end i f : • "•• • • 

'* * ■ 1, • . ' . 

if thegame = " 5 then 

if" (goldscor'i ng level." >= d'i and (goldscoringlevel <~ e) then. 

set goldscoringlevel - y ' "« .:. 

end i f. , •'. 
end/ if • • . '.- - , . 

end repeat * ■ 

--set. scpr inglevel = 8 TEST 

set ? goldscoringlevel = 1 TEST 

■ * ' ■ 

put " ba 1 1 oonscor ing leve 1 ="& scoringlevelx 

put " goldscoringlevel ="& goldscoringlevel '.' • 

' . - \ * " - ■ . . 

GivemeBalls ; , v 

if chartpro = "0" then * 
set ballopnVspritelist = list (1000, 309, 275, 241, 207. 173 , 139 , 105. 71) v 
set balloonHspritelist = list (1000, 63 ,63 , 63 , 63 . 63 , 63 , 63 . 63 ) \ 
put getat ( bal loonVspri telis t , balloonhighlevel) into y 
put getat {balloonHspritelist , balloonhighlevel) into x 
set the locV of sprite 37 to y 
set the locH of sprite 37 to x ; 
set the visible of sprite 37 to true 
. updatestage ■ » 

■ else . ; ' ■ . -. ; . ■ ' « 

■ set the Iog of sprite 37 to point ( 1000 , 1000) . ■' ' 

, set. the visible of sprite 37 to false . - . • 
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on GivemeBalls 

.. . f - - » 

•global 

gchartlist , thegame , go Ids c'o ring level , gsfx, scoring level , highleyel, mini is t , maxlist , spritel 
t , monster list, ^> . '• ' ^ '■' ; 

ball chart , ballmaster , goldseoringlist , gscoringlist , newscorel is t , what game., special sound, gh 
chart lis it . special sound ' , 

case(whatgame) of \ , 

" 1" : se.t the visible of . sprite 40 to- false • : . ■. 

"2 H : set the visible of sprite 42 to false 

"3":set the visible of sprite 41 to false \ ■ , " 

\ ''"4 *■ : set the visible of sprite 39' to false ' . : 

"5":set the visible of sprite 37 to false 
. "6":set the visible of sprite 38 to false. ■ . 

end cas& : ' ■■' •• ' ' •• " 'i , - . - 

j * V . , 

* ' • * '. 

* ' * - ■ ' ■ '* ' 1 • ' 

. if thegame = what game then ... / • ~\ 

put count (maxlist ) into ListNum 

■ , '- - * ■ * ■ "- ■ ■ 

. . • • • . ■ , . • . . ■' > • • 

repeat with x = 1 to ListNum . : . : 1 . ' ' ; 

put getat (ballchart. getat ( bal lmaster, x)) into what chart 

set the member of sprite getat (sprite! ist , x) to member 
getat (whatchart-, (.getat (goldseoringlist-, x) +1 ) ) 

end repeat . . ' = 

updatestage. * / 

start timer ' - , . - ; 

repeat while the timer '<12Q ... I . 

-. end repeat- ..- -'' . v 

if go Idscpr i ng level < ■ scoringl eve 1 then ' •.. ' ' 



put count (maxlist) into ListNum 
repeat with x = 1 to ListNum. "< 

set targetspri te = getat (spritelist , x) 

set Numl = getat (goldseoringlist, x)+l 

set Num2 = getat (gscoringlist , x)+l 

put getat (ballchart , getat (ballmaster , x) ) into whatchart i ..'*.'■ 

if Numl < Num2 then ' 
repeat with y = Numl' to Num2 ' -— repeat with y =• 1 to 3 
if y > Numl then . . 

set the member of sprite targetspri te to member getat; (whatchart . y) 
put getat (whatchart , y) 

updatestage * 
puppetsound 1/ gsfx 

updatestage " r • . . * ' / 

repeat while soundbusy ( 1 ) - : 

end repeat . •'. 

end if * ■ . *.'".. 

. end . repeat ' • . 

end' if • " 
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• 1 ' 

end repeat - 
else' if goldscoringle\rel > scoring level then 



repeat with x - ListNum down to 1 ^ ' ; ■ \ 

'. put x - • ' '■ / • : , ■■ 

set targetsprite •= getat (spritel ist ,x) ■ ' 
set Numl -= : getat fgoldscoringlist,x) + 1 --2 ... 
<■'.' .set Num2 =getat (gscor irigl ist ,x) + 1 , -*\ — 1 . ; 

put getat (ballchart; getat (ballmast.er , x) ) into what chart 
. • . if Numl > . Num2 then , ■ ' * 

repeat with y .= Numl down- to, Num2 repeat with y = 2 to 1 

if y < Numl then -'.«-•' • > ; ; '* . 

set the member- of sprite targetsprite to member ge tail what chart , y) 
- updates tage • • • 1 : . •' 

puppetsound 1 /"wrong . aif" .. ,\ ; " , • , v . ■ ; - 

* 1 updatestaae - ' " ■"'>- 

' ; repeat while soundbusy 5 1 ) - '•• ... -\ ' 

. end repeat *. • . •• • ' • - • : •.. /• 

. " : end if [, .. '• ' y . • 

■end repeat' .... , " ' • : _ . • , ■' ..' : . 

" end if . <■■ : ; \ - : ' ■ . • . , ' : : . . • • ■ ■ ' \; '']; 

'■ end repeat. • . . :r ; • " : . " . ' \ • 

end if. v • . . • • - ' : ' \. 'f''/ • ,•. ; . 

--checks to* see if game is completed and play's sound - 
if gscoringlist p maxlist then ! .'• '*; 

puppetsound 1/0 ' ; ; .' . ' . ■ 

■ puppetsound i, special sound .,; ^ • , ; 

updatestage ' ' ' 5 • ; \ / : - , • . ;' / . , 1 

repeat while soundbusy ( 1 ) .. ' t -\ ;' 

end repeat \ • * • ; r .- * ■ . -;\ ' • ; - 



end' if ' ' ..- '; . '" '- ■ • : • , 

< --checks if all games- are conpleted and plays sound * t . • ' * 

ifgbigchartiist - : [ [ 3 , 3 ,1 ; 1 , 3 ,3 ] / [ 1 , 1 , lV .1 . 4 . 4 . 4 ) , (5/6) . [6,6,2.2] # {2,2,2,2], . 

(1,1, 'i,i, 1,1,4]) then.; ; .. 

.puppetsound^ 1,0 / . / ' 

• puppetsound, 1 . " f inal : '* ' .. ' ' • r ; % 

•updatestage 



r epea t wh i 1 e soundbusy"( 1 ) 
end repeat- 

end i f . . >. 

--plays baekround music when done 
puppetsound 1..0 
puppetsound 1, ; "main track"' 
updatestage • ; 



. else ; ■: , ; % ; ; . • • "■ 

put • count (maxlist) into ListNum ; * ' , 

- - " - • ; . . ; " t* 

'. ' ■ " •'• ' > « 

- * " - ■ ' ' * * ■ 

repeat with k - 1 to ListNum . 

put getat (bal lchart, getat {bal Imaster, x) ) into what chart 
set the member of sprite getat ( sprite 1 ist, x) to member ^ 
getat {whatchart , (getat {gscor ingl ist , x) +1 ) )' N .. . •• • - • 

-- updatestage . • .. : • 

■ ' end repeat - . • . - 

.end 'if . . ' ■ " ; ■ :• * U.- . 
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end 




on chartCoal ; " • 

global - • . " • ' . "' . 

gchartlist , thegajne", go ldscoring level , gsfx, scoring level , highlevej, mini ist ,maxlist , sprite lis 
t, monster list ;.h , , 1 ■ .-' ' 

ballchart , ballmaster , goldscor ingl ist , gscor ingl ist , newscorelist , whatgame , gbigehart 1 ist , cha 
rtpro, specialsound • •. ,,. • . 1 

set specialsound = V. v ' '* \ /■ ■ 

set ballchart - ( ("cj_0- f "c_l_l M L ["c_7_0", "cJ7_lV "c_7_2 " . "c_7_3 ... "c_J_4 " J J 
set ballmaster = [1,1,1,1,1,1/2] " ' . ' * ' . • - ' . * ■ ^' ' 

set' whatgame = "6" * •; '• -. • ' ; ' . : 

set maxlist ' = [1, l„l f 1, 1, 1,4] - " < . ' ' ' /. \.[ ; 

set mini ist = (0,0,0,0,0, 0,0].. ' ■ - \ ■'■ - : • • • ■ , ■ ' 

,.set spritelist = [27 ,28; 29 . 30, 31 , 32, 33 ] ^ . , ... • : 

,put getat ( gbigehart list , 6 ) . into gscoringlist 1 '.' ,.- ;• "". 

•set Coallist = list O : " . • • - ; : /. ' ' '• . ." . 

put getat (gchartlist ,6) into Coallist - 

put getat (Coallist, 1): into Coalscoringlevel- .[ .' 

put getat (Coall ist. 2) into Coalhighlevel : ; 

• if Coalhighlevel = 0 then 

.'set Coalhighlevel = I * . ' : "" •'• ■ \ ■ ' •• 

end if •'; : : ■ ' • •< • . . ' " 

* * * *f ' 1 . i l 

i -. _ • , i 

set levelCoallist = ' . ' . . \ ■ • • 

((0.10), 111.20], [21.34] , [35,40], [41,52], [53.56], [57,63], [64,66], [67.72] . 173,74] . [75.76]] 



' ' ■ _ r - . ■ ... . » 

put count (levelCoallist) into listNum ' . " 

repeat with y = 1 to listNum ", 

put getat (levelCoallist, y) into checklevel 

put getat (checklevel , 1) into d 

put /getat (checklevel . 2 )^ into e > ' : 

if (Coalscoringlevel >= d) and (Coalscor inglevel • <= e) then 
set scoring level = y ' * '.' ' • • 

• • • end if ,"• • • 

if (Coalhighlevel >= d) and (Coalhighlevel <= e) then 

set Coalhighlevel = y 
end if ; . ' • . .- 

. - ' ■ . . . 

if thegame = "6" then - ■ - 

if (goldscor inglevel >.= d) and (goldscor inglevel <= e) then 

set goldscor inglevel = y ,*•■'■ 

■ end . if • • , ; ; ; ; • . , 

end .if 

end repeat '. " - 

r 

Vi put "Coalscoringlevel ' m h scoringlevel ■-, 

■' • . . • ■ - * . * = 

put "Coalhighlevel = Coalhighlevel 

\ - - » 
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i f scori ng 1 eve 1 > 1 1 then 
set scoring level =11 

• end if : . » . .. 

if Coal high level > 11 .then 

set Coal high level = 11 
end if 



.f 



GivejneBa 1 Is ''■ ' ' : . " V 

i f chartpro = . *•()■ then '.. ; ' , . \ l ." - 

set. Ci..,i ■IVspr.i tel ist =y.-Tist ( 1000. 30.9 ; 309/275. 71*> .2<\\ , 241 , 2 07 , 207 . 17.3 , 173 ) 
set CV.ilHspi itelist list { 1000/142 , 1 72 -, 142 , 172 , 1 42 , 172 ,142 . 1 72 , 142 ,1 12 ) 

, put' oetat (CoalVspriteiist ..Coa I high level ) into y . 
put get at (CoalHspri.tel.\3t , Coal high level ), into x v 
'set the locV of sprite 36 to y ■'; . • f . . . 

set the - looH of sprite 38 to x . . 
set the visible of sprite .38 to true /■ 

r~ upda test age s ; ; : .. v ' "-.i*. " y '■'<" .: .-' •' 

else •: • .; v."/- '•• ]■ . :' ... - • ' '• . . v- ■. .* 

set the ioc of sprite 38 to. point (1000, 1000) , . , ',,[■ 

set the visible. of sprite f 38 to false. \- 

end if ' . ,'" '. ' : . V • . • " : • • 



end 



t ■ ■ 



Score Scripts 



\ on exitFrarne 

go to the frame 

• end . ' 



» 



Script of Cast Members 



on mouseUp .'■ ■ , \ . .. ' .- • 

. global gRecordKeeper , ; . . 

set newData - 0 ' ' . • 

put the text of member "name" .& Return into newData ,. 
put the text of member "age" & Return after newData 
put the text of member "nickname" & Return after newData 
storeData' gRecordKeeper/ "userl " , newData, true. 



end 
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Script of Cast Member? 



on mouseUp ' • 

global gRecordKeeper . . . - . 

restoreData gRecordKeeper, "userl " , .2, ' "name" 

restoreData gRecordKeeper, "userl", 3, "age" 

restoreData gRecordKeeper', "user! * , 4 , "nickname 



end ■ : - ■ : ■ , -i " 

--RestoreData me,' WhichCast, WhichLine, v^ichmember 



: / 



Script of . Cast Member! 1, 



on mouseUp . ' • ' • • 

go to movie "dataview; 

end : ' . • ' ' ; ■ ■ ' 



) . 



Script of Cast Member12 



on mouseUp ■„ . '; 

global gtheName . ;'*-■ ..- : : 

put field "User Name" into -theName 

set' gtheName = theName « 

go s to movie "rappers"- / • 
end . *.■*'= ' 



Script of Cast Memberl 3 



on mouseUp 

global gtheName 

put field "UserName" into theName 

set gtheName - theName 

go to movie "c.c coal.dir" 



end 
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Score Scripti.4 



Script of Cast Memberl 5 



Score Script16 



—on mouseUp '". . 

global gRecordKeeper , gscor inglevel , gsavedlevel , gtheName 

put field "UserName." into theName , 
-- set gtheName = theName r \ f 

put "3" into. theGame ; 
-~ setUpRound (gRecordKeeper , theName, Value ( theGame) ) 

go to frame ■ " int.ro "of movie * Rhyme8 • 

set gscoringlevel - the result ♦ ; 

, set gsavedlevel- gscoringlevel 

— end ■ , . . . • '■ 

*■■ ■ , - ' - 1 

on mouseUp - : . 

global gtheName. theGame ■ - ' 

put field "UserName* into theName 
set gtheName = theName • 

put "3\ into theGame • ,;*■*.,' 
•'go to\f ramekin tro" of movie - "Rhyme 8" ..•■•*•". 

end - . ' . - - . 



Script of Cast Memberl 7 



on mouseUp 

global gRecordKeeper : , 

put field "userName" into theName 

addUser (gRecordKeeper , theName ) 

end : : 
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Script of Cast Member! 8 



on mouseUp : / ' 

global gRecordKeeper : 
put field "UserName" into theName .V 
put field "GameNum" into theGame , 

setUpRound ( gRecordkeeper , theName , Value ( theGame ) ); 

end • : : " ' ! . 



i • * 



\ ■ 



Script of Cast Member20 



on mouseUp . 

global gRecordKeeper * u ? \ . < + . ■ f 

.set Numplays = item 1 of field "Scores* ..' / 
set NumRight . >. item 2 of field "scores* 

addtoScore (gRecordKeeper, Value (Numplays ) , Value (NumRight) ) ."• 
end. " • ' 



Script of Cast Member21 



on mouseUp ' \ ; - 

• global gRecordkeeper , 
put field' "Level" into level 
setScoringLevel (gRecordKeeper, level) 

end ••• 



J. 4 



Script of Cast Member22 



r i 



\ on mouseUp . . 

global gRecordKeeper. ... 
put field "Level" into level 
set savedLeve 1 (gRecordKeeper; . level) 
end 
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Script of Cast Member23 



on mouseUp ' ■■ . • ,y . \ 

. global gRecordKeeper , gscoringlevel , gsayedlevel , gtheName, gnextgame 

put field "UserName" into "theName ... •/ 

"set gtheName = theName ; ' 
• put field "GameNum" into theGame v" 

setUpRound (gRecordKeeper, '.; theName, Value { theGame ) ) 

go to frame "intro" of movie "Rhyme8.dir" : . .. 

set gscpr inglevel = the. result . : 

set gsavedlevel- gscoringlevel . : . 

set gnextgame =• gscoringlevel: 

. end • ■ . •; 1 • .'. • . 



Script of Cast Member24 



on mouseUp 

global gtheName 

put field "UserName- into theName 
■ set gtheName =, theName 
go to movie "Eggs8:dir" 

end * ■'. '■■ '■ ' -. 



Score Script25 



on mouseUp . ' 

put "Player 1* into field "username" - 
• end 



Score Script26 



on mouseUp 

put "Player 2" into field "username" 

end 
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Score Script27 



on mouseUp 
put 

end 



er 3- into field "useraame 



Score Script28 



on mouseUp ' 

put "Player. 4 "into field "username 

end ' 



Score Script29 



• on mouseUp 

put * Player . 5 -" into f ield " username 

end . • * - " — 



Score Script30 



on mouseUp . ' , - V . 

put "Player 6" into field "username 

end t . . .' 



4 * ■ 
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Score Script31 



--on mouseUp 

— glcbal gRecordKesper , gscor inglevel , gsavedlevel , gtheName 

— put field -UserName" into theNaroe 
set yti*eNaroe = theNaroe 

— put p 6 ? into theGame 

« setUpRound ( gRecordKeeper , theNaroe , Value ( theGame ) ) ; 

go to movie "coalS* 
--. set gscoringlevel == the result 
-- set gsavedlevel- 
--end 



on mouseUp 

global gtheName, theGame . • ;•; . *• 
put field •UserName" into theNaroe 
set gtheName = theNaroe 
put "6 ■ into theGame ■ 
go to movie "coal 8 " 

'end •.; *• 1 ' 



:> - 
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Score Script32 



--on mouseUp *■ ./ ' 

global gRecordKeeper , gs coring level. , gsavedlevel , gtheName 
t- put field "UserName" into theNanie 
-•- set gtheName =? theName 

put "4" into theGame ... " . 

setUpRound (gRecordKeeper, theName, Value ( theGame j ) 

go to movie "rappers 8* 

set gscoring level = the result 

set gsavedlevel= gscoring level 1 
--end . < 



on mouseUp \ 
•global gtheName, theGame 
put field "UserName" into theName 
set gtheName - theName 
, put "4 " into theGame 
•go to movie "rappers 8 " 
■* end • \ 



1 
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ocore 



--on mouseUp . 

global gReoordKeeper , gscoring level , gsavedlevel , gtheName 
put field "U^erName" into theName 
set gtheName = theName 

— put "2* into theCame 

- - setUpRound ( gRecordKeeper , . theName , Value ( theGame) ) , 

go to movie "Eggs8 p 
~- set gscoringlevel = the result 

set gsavedl eve 1= gscoringlevel 
--end 



on mouseUp 

global gtheName, theGame 

put field "UserNarne- into theName 

set gtheName = theName 
, put; m 2 m into theGame 

go to movie "Eggs8" 



end 
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Score Script35 



— on mouseUp 

global gRecordKeeper , gscpringlevel , gsavedlevel , gtheName 
-k put field "UserNaroe' into theNaine 

set gtheName -= theName '. 
-- put "1" into theGame , 

— setUpRourid (gRecordKeeper , ' theNrcne, Value (theGame) ) . 
go to movie "katyS" 

— set gsGoringlevel = the' result 

— - set gsavedlevel = gscoringlevel 
--end ■ •"■ 



on mouseUp 

global gtheName, theGame 

put field "UserNaroe- into theName 

set gtheName = theName 

put "1" into theGame 
: go to movie ; 



end 
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Score Script36 



--on rnouseUp ' ; > . 

global gRecordKeeper , gscoringlevel , gsavedlevel , gtheName 
put field "UserName* into theNarne 

— set gtheName = theName 

— put "5" into theGame - • ; 
setUpRound ( gRecordKeeper , theName , Va lue (theGame j ) 
go to frame "mac " ; ' : " 

-- set gscoringlevel = the result " ' 
— . set gsavedlevel= gscoringlevel 

go to movie "Karloon8 B . 
~- set gscoringlevel = the result . 

set gsavedlevel =. gscoringlevel ; 



tr 



--end 



on rnouseUp 

global gtheName, theGame ■ 
put field "UserName". into theNanie.. 
set gtheName = theName 
put "5* into theGame - - 
go to movie "KarloonB" - 



end 



! s- 



■» 

"v.. 
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on exitFrame 
.global chartpro 
repeat with x, = 4 to 33 

puppetsprite x, true 
end repeat ' • . • ,, ' 

repeat with x = 37 to .42 

puppetsprite x, true 
.if chartpro = "1* then 

set the 'visible of sprite ;x to false 

end if 



end repeat 



showmeballs 



cursor -1 
end 



Score Script38 



on exitFrame 

go to the frame 
end " 



Score Script 39- 



on exitFrame 

go to frame 5 
end 



: i 
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on mouseUp 
cursor 4 
. repeat with x ■= 1 . to 48 
puppet sprite xv. false 
• end repeat . ■'. ; " 

go to movie '"data test" 

end ■ ! 



Script of Cast Member48 



Score Script50 



v ■ 



--on mouseUp : ' , • • ' ; * 

- global gRecordKeeper , gscoring level , g saved level , gtheName 
-- put field "UserName" into theName ' " : . \ \' 

— set gtheName = theName 

-t: put "3" into theGame > • 
- r ' setUpRound ( gRecordKeeper /• theName , Value ( theGame ) ) 
gb to. frame "intro" of movie "RhymeB" 

■ set gscoringlevel = the result ; - *. 

-■- . set' gsavedlevel= gscoring level 

--end . • ' • • . -. 1 ' : • •/ ; 



on mouseUp 

global gtheName, theGame \ . 

put field "UserName" into theName 

set gtheName. = theName 

put "3 " into theGame " 
— . go to frame "black" : 

go to nvoyie ; "Rhyme8 " 

\ i 

end . ■ ? 
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Score Script52 

on mousedown 

buttonDownhandler . 

■ * - 

end 

on mouseup 

. buttonUPhandler 

end r 



Score Script72 



on mouseUp 
, '• cursor 4 . • .. - 
set doc = 0 

set doc = new(xtra "print oma tic" ) ' 

if not objectP (doc) then .' : . k 

alert "there is a problem with, printing 
cursor -1 

•exit . 

end if . ; 



• t 

reset doc > 
setLandscapeMode (doc, true) 
setHargins(doc, rect (72, 36 ,72, 36) ) ' 



• ■ > • . ■ ■ 

append doc, member "fake" of castLib 1, TRUE 

. drawStagePicture doc , Point ( 0 , 0 ) , Rect (0,0,640,480), TRUE 

print doc ' 

cursor -1 •: .* • 

end • .'.'•*'• 



V 
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Score Script75 

on mouseUp r V ,: , • 

global spritelist . , > 

if the machinetype, = 256 and the colordepth > 8 then 

alert "Progress Chart is unable to print in Thousands (16 bit) or Millions{24 bit, 32 
bit) of Colors, Please set your monitor to 256 Colors in the Monitors Control Panel . * 

'exit . • * "_' • - . '• - - • . ••• 

end if ■ ■ ' ■ 

cursor 4 
set doc =0 

set doc = new(xtra "printomatic " ) \" , .. ■:• \ 

• - ■" •'. • • ' ; • ■'.*,''."■■ ■/ " • •" v '■ 

if not objectP(doc) then ' 
alert 'there is a problem with printing" 

cursor -1 , • 

exit - •. • , . . 

end if ■ ; . , • .'. ; . •' ' ' / ' 

reset doc \ 
, setLandscapeMode (doc, true) , 

: setMargins (doc, rect (72 ,36,72,36)) ■>= . ' ; ' . 

riewPage doc 

— • append doc, member •fake" of castLib 1, TRUE ^ 
drawStagePicture doc. Point (0,0) , Rect (0,0, 640, 480 ), TRUE. 
, append doc , the date 

: • ■ * . \ - ■ ' - ' 

' " - ■ _ \ ' • ■ fc ■ . . . • • ■ ' % ' ; . 

set spriteRect = the rect of member "print back" . 

newFrame Doc , spriteRect , false ' 
append doc, member "print back", false 

■ - . * ■ ' i 

set spriteRect = the rect of sprite 17 
set spriteRect = rect (54, 18, 262, 32) 
~- newFrame Doc, spriteRect, false : 
- settextsize doc, 14 

. • . ■ ■ . . • • • 

set text just doc, "centered" 

append doc, member "UserName" , false 

- ' ■ ■ . . " - ' . . - . 

^ , j, t - i ■ 

i - • * - ■ . • , 

..-r- set spritelist = list ( ) > ^ 

— set spritelist ^ list (3, 4, 5, 6, 7; 8, 10, 11 , 12, 13 , 14 , 15, 21 , 22 , 23 , 24 . 25 , 26) 

— put count (spritelist) into countsprite ' . • 
repeat with y = 1 to countsprite . 

' - ■ * 

r- ■ put getat ( spritelist, y) into curr sprite 
— - put curxsprite 

'■■ — set m^nberName = the Name of The Member of sprite curr sprite 
~-4 put "name = " & memberName 
set spriteRect = the rect of sprite currsprite 
newFrame Doc, spriteRect, false 
attend doc, sprite currsprite, false 

append doc, member memberName, false 
end repeat 

--append doc, member "ccal up* , false . 

set Documen tname (doc, ." Ear obi cs Progress Chart") 
print doc . ■ •-. ' 
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V 



cursor -1 
end 



Score Script98 



on mouseUp •> • 

if the machine type = .256 and the colordepth >.- 8 then 

alert "Progress Chart is unable to print in Thousands (16 bit) or Millions (24 bit, 32 
.: bit) of Colors, Please set your monitor to 256 Colors in the Monitors Control Panel." 

' exit v : . . ' ; , • ■ • - ' ■ * ■ ■ .. 7 •. : < ■ ■ 



.a * , . _. T , 

end if . '. 
cursor 4 • 

printfrom (the frame) , (the frame) ,50 
cursor -1 / s ' 
end 



i \. -v 
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v on mouseUp "... * ! . 

} global gDacaSavePath • - ; 

. get coordinates of capture rectangl 
set left =?' 0 

set top =0 • : 

set right ..= 640- . ' ■ 

set bottom = ^80 i ; ' 



get f i lename- arguirter- \ *'. ' 

set filename ="temp.bmpv string specified 

set retVai to St acjeToFi le ( lef t ; t op, right . l>or tonr,. f i 1 e:^tri.e) 

• t ■ ..»•.■ •• * ■ , 

, 1 ■ ' •■■ . . . . : ■ . • . 

--• ShowRetVals {retVai,. GetMessage ( retVai ) ) 1 . 

- ■ . ...-> ....... , . ; 

updateStage \ y : , • • 

cursor 4 . ,. " " ' ' . . \ ■ ■ 

set doc = 0 • • ■' • [■ '.' ■ ■•- • 

set doc = new (xtra "print onia tic" } : . 

, ■ ' : ' ■ : ■ ■ ■;• -. • . /* " : - . ,.\ ■•' ■'• ■.. ■ . V 

if not object P( doc) then . - ' ••- -„'. * : '•>■■ 
alert "there is a problem with printing" 
cursor -1. . ' : r .-' * , • " • ■ 

exit • . .• • : . .• ■ ■ . / J.,.'. . ■• >/.'/' 

end if — . ' •' ' u ■ ■ .' ' ' ■ ■ ■ 

I - • J ' .. .'- , • ' ■ • 3 ■ *'■'■'" ■ \ 

reset doc 1 , ■ . 

set Lands capeMode (doc, true) ' ■* , ; ; 

setMargins (doc, rect (72 . 36 , 72 # 36 ) h c V :~ 

1 newPage doc •' ' , / '„ . * 

appendFile doc, gDataSayePath U ■ternp.bmp" , TRUE '. . 



1 ' 



append doc, the date 

setDocumentname (doc, " Earobics Progress Chart ' ) 

..print doc , * • ; " ... 



■-I 



cursor -1 
end 
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on mouseUp 

global gDataSavePath ; 
< . * - get coordinates of capture 

set left = 0 .;■ 

set top = 0 . ' ■ ;V 

set right .= 640*-' 

set bottom. = 4 80 . 



- - get f i lename argument 
set filename temp, bntp" 



string specified 

- 



;et .retVal to StageToFile( left,;, top, right;, bottom; gDataSavePath L "temp.bmp") 



ShowRetVals (retVal . GetMessage ( retVal) ) \ 7 *" 

updateStage.; \ . •;. : ' ' • " \ , _ 

start timer . '. < •'. ! - 

t- repeat while the timer < 60 ' : . 
.-- end repeat ' •■" r ./' ..' 

start timer ■«■ . / . •. . '<'• 

repeat while f ileExists (gdatasavepath & f temp.bmpr ) <>0 
if- the. timer >5*60 then 

alert "There is a problem with printing" ' 

" . _• • • • ■• > •.' " » 1 * *.. 

-/cursor. -1 :' ■ ,; - . t ;r " 

.:. .exit, '• ' V '. * • " 

end if ■-" " •' • ■• " . ', .• • • / ' 



end repeat 



cursor 4- 1 "\ -■ 

set doc' =0 . . . 

set doc = new(xtra "priritomatic ' ) 

- . i » . .t 

if not object P( doc) then \. 

alert "There is a problem with printing 

cursor -1 
-. . exit 
end if 



reset doc 

setLandscapeMode (doc , true ) 

ns (doc , rect (72 ,36/72, 36) ) 



newPage doc "-. l\ 

appendFile doc, gDataSavePath & "temp.bnp" ,.<TRUE 

: ;;> . ■ -.*.••-. . ,; / 

append doc, the date . 

set Documen t name ? (doc, "Ear obi cs Progress Chart - ) 
print doc \ . 



cursor r. 1 
end ' 
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on StartMovie 



global gDataSavePath, gRecordKeeper , gRecordDisplay , G09CICD, gehart list 
cursor . 4 

set gchartlist V list ( ) 
set GoodCD = False 



put the pathname into gdataSavePath /■••'* 1 

'• ' 'r - ' - ... , t ■ 

save this location to a global so 
?- that the " da taCol lector" object can find the 8 external cast "data.cst 1 " / 
link to it and use it to store info from the movies on the locked volume. 

set gRecordKeeper = 0 . ■ 

set gRecordKeeper = new (script GRecordKeeper *} 

~- set gRecordDisplay = 0 * . . 

V . set gRecordDisplay - new {script 



birth data collecting object 

end 
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version 2/3/98 

revised checkCast Sizes handler 

— to continue trimming castmembe*: until the size is 

— under 30500. Put at "repeat while" loop in to accomplish this 

— keeps out unlike possibility that on trim of record woul 
not be enough « - - * " 

— Installed preference storage handlers 

— implem nt delete player stuff s (2/2/98) • 

property currentUser , currentGame, SavedLevel, ScoringLevel , HighLevel , proStatus , 

CastLibName. newHigh, myHandlers, pObLevelTracker 

■ ■ . : • ■ % ■ ■ . 

on x-- — --Public Handlers '- — / . 

— I'm a separator 

end ' ' <••••' . ». "'. 



on AddUser me, UserName — (function) 
pub. 

adds user name to member, 1 of castLib " records . est " * 

"*.•■*■ ■ ■ ■ ■ ........... .. • • ., ■.' * ■ - ■■ . 

: -- here is where users are added, and where the object 

checks to see if name is already on" list or if more than 
25 names are on the list. Does not limit length of name 
or any other quality of the name. Commas in the name would 
■ -r screw up my score reporting so they should be filtered out 
.. ■ — before giving the name to the recordKeeper ; 

-- Returns 1 if name was successfully added. Returns 0 if hot • 

case (proStatus ) of ; . 
0 ;set MaxUsers =4 / 

1 : set MaxUsers =26 ' 
2 : set MaxUsers = 26 , 
end case ♦ 

openRecords me 

set users = GetNumberOf Users (me) 
. put the number of lines in field 1 of castLib castLibName into users 

if users >- MaxUsers then 

alert "Sorry, you have" && MaxUsers "users already- You can not add any more users 
to your records." 
closeRecords me 

return 0 • 
-'■ end if - * ■ -• | ' - v ,. . ■ " , • 

repeat with x = 1 to users 

if line x of field 1 of castLib castLibName = userName then 

alert "The name " fit&Ouote&userName&Quo te&& "is already in use. Please choose a 
different name. Thank you. " • - ' ' ■ 

closeRecords me 

* ■ 

return 0 
end if 
end repeat 

put userName & return after field 1 of castLib castLibName 

setUpNewUserMembers; (me, userName) name members for new user and init those members 
save castlib castLibName 
closeRecords me 
return 1 

end . : 

• j. .. .... ', 

on Get User Names me -- (function) 
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Pub, 

--. this function ..returns the names of users from east 1 of 
■V- castLib -records .est " 'they are returned as strings separated by 
— -returns" just as they are in the member. Be sure to 

. .. — call' as a function ie: - • ' 

-pat getUserNames(gRecordKeeper) into someVari able" | 

openRecords me ' 

put field 1 of castlib castlibhame 'into UserList • 

CloseRecords me ' .-, 

put userList, - . - ■ 

■return userList > . •' ''• . 

end •' • '". \ ■ ». " ' " • ■' : . : " 



on DeleteUser me/ UserName : ; r 5 •• ' , 

deletes user • from player list and - . / 

— takes name of f ' of all records " / 
though doesn't delete the records 

: set x = checkAndConvertUserNametme^serName, 1) — lineNumber of player 
if -x = 0 then name not in list! « * 

alert "That /name is not in the list." 
• . return 0 ; ■ ■■■ . V,- " \ ■ *: •• . 

end if / •_ / , • : : • • ., . "\ , • 

openRecords me • . ■ ■ .1 : : "\ : ; 

delete line x of "field "userNames" of castLib castLibName - 
repeat with y. .= 1 to 7 delete member names . . ; ' , ' 

set memName - userName&Y , : ^ 

if the number of member memName <> -1 then '-- watch for no prefs.yet in "7" 
erase member memName of /castLib cast LibName • 

end if " ' * '■ : .. •• '" ; •• • '.' . " '* ' '* . 

end repeat •• •. • ' " ■' ' '■ 

saveRecords me * . , - • - 

closeRecords me 7 : \ : , ! , / . . 

end- ■ ! '. YO ' ; : : , • ... : • .. ■ 

, 1 1 'j ... I ',. » t 

• * " '* ..... 1 ' 

on setUpRound me, whichUser, whichGame (function). 

. Pub. : .•• ' : " . .* ■ " - • ■ 7 

This is the prime handler to be called at beginning of 

any round of play. The game must tell " recordkeeper " whichUser and whichGame 
-WhichGame" must be an integer from 1 to 6 . ', ' 

■ -WhichUser" is either string of user's name or, an integer \ 
representing the line on which user name is stored in 

— member 1 of castLib "Records. est"/' = ; . 
--..Call sets up a new game round for scoring. 

ScoringLevel will be retrieved and set from 
. — the saved level for that user and that game. '■; 
(item 1 of line 1 of member "currentUser&whichGameSc- ) 

It will also return the - scoringLevel ■ that it sets. . , . 

Use "the result" to get it and store in a variable. 
-- for game 2 (eggBasket) returns a list with scoring' level as 
— item 1 of .the list and "bouhceNum" as item 2 of the list 

— if the level b.f that game "is over 30 (CV) . ' ' 
7-- New (12/ 24/ 97) also reports scoring level to pObLevelTr acker 1 

\ — to use for evaluating returned scores V ' * . ' 

.. . - , . ■ . . ■ *■ 

setUser (me, whichUser) ' . - ( ' 

setCurrentGame (me, whichGame) , ■ ■'■ 

openRecords me • 

■ V ' . : : ■ ' ' « - 
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■ v . • 

set PrefCastMember = whichUser& f 7" - - : 

if the number of member PrefCastMember of castLib castLibname == -1 then 
• no prefs yet so build them 
makeNewPrefCast me, whichUser 
. save Records me ' : 

' end if .' ■ "• : " ■ * • , • 

■ " ■ • - ■■ •'.'■*''-• ,• • . • " 

set thisRecord = currentUser&whichGame • • • ; ' 

set whichLevel = item 1 of line 1 of field:. thisRecord of castLib castLibname 
set HighLevel = item 3 of line 1 of field thisRecord of castLib castLibname 
if currentGame = 2 and whichLevel > , 30 then . \ ,' '• 

set BounceNum = value (item 4 of line 1 of field thisRecord of castLib castLibname) 
end if . , , ' 

i f HighLevel = ."' * " then set HighLevel \- 1 - ;. ; , N ; , ' / "/ . "\ 

set scoringLevel (me, whichLevel)' '■' '." -. 

' set savedLevel = whichLeve 1 - - " 

put "current game = *\ && currentGame ' ./ . : 

put -Scoring, level = * ! &&scoringlevel : -. - '■: 

' " ; Put - highLeyel = - m USc HighLevel . • . : ;: ; ., • v \ 

setOpenningLeyel (pbbLevel Tracker . scoringLevel ) - - report * to 1 eve lTr acker ; 
if CurrentGame = 2 and ScoringLevel > 30 then 

put "BounceNum =" && bounceNum • . v - . 

set irif o '= [] ' • - •"" . '".""'■,•*" 

, sefcat . (infb; 1, scoringLevel) : 
setat (info, 2; bounceNum) _ . . ■' . . '" ' *. 

sayeRecords me - - save report to level tracker ; 
closeRecprds me : ... „ . ' ' . : • : ' " 

return info . . , , ' ' • " : - 

• else • ■ J ' '' ' v': ; -- . • ■■ : ' . \ ; 

saveRecords me save report to level tracker 

closeRecprds me *' • , : 

return scoringLevel ' ,/ ? 

end if ■ • . : • ! ' . ' ' 

■ end'- . . • . . \ ; . , • ■;. • • • " • • 

' . ... • . * ■ ; • . ■ ' • *' • 

on GetScbringLevel me (function) , 

•.-- pub.-' .'. ■ V " : "■ ' . - • ^ •'. ■ 

returns the current "scoringLevel" property 

if voidP (scoringLevel) then exit 

put scoringLevel ' . 

return scoringLevel . " ' ' .;].'. 

end '■ •* . • ' - . • . 

„ i ■ ■ ■ 

;on SaveRouridScores me; roundlist, levelToSave 

' — pub. . v . . 

Reports scores from one round of play. 
— Takes a list of the round's levels and scores. v . - . 

in case of game 2 it is a list of property lists (EggBasket) « 
with the - property being the level . \ • 

, — otherwise it is a list of linear lists with the first value 

being the level, .also takes a parameter for savedLevel. \ •'. 

--doesn't save scores till everything., is reported. 
openrecords me . 

set LevelsPlayedList = [) keep list of ieve Is Played for pObLevel Tracker 
if currentGame <> 2 then 

repeat with thisList in roundlist 

put getat ( thisList, 1) into thisLevel 
append LevelsPlayedList; thisLevel 

[ ■ j ' ' - - , i . « 
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setScoringLevel me, thislevel ' : ■ ; ' 1 • 

• addToScore me,' getat (thisList,.2 J getat (tJiisList, 3 ) 

end -repeat ■ >• ■ y.' 4 ' '«■'■'-■ " - : > ' 

else special case for EggBasket . 1 

set levelNums = count ( ro'undl is t ) , ; . '■, 1 i 

repeat with x = 1 to levelNums ' ; l; : * ■ ~\ 

put getPropat (roundlist, x) into thislevel 

append LevelsPlayedList , thisLevel 

• setscbringlevel me , thislevel : \- < • ■' \* 
' put geta Prop {roundlist, thislevel) into scores r : . 

addtoscore me, getat (scores, 1) , getat (scores, 2) , getat (scores, 3) , getat (scores, 4 ) 

end repeat ■■■ *' .' •• / '* ' ' • : • : . t - 

CheekEggBasket SounceNum me ' - ; 

end if - . i • ••' • ■■ • " ' ■ - * . :. . ' 1 . •'* • " " 

setsavedLevel me, levelToSave . ; * 1 - V V 

■ - - ■ - • ■ • • * -.; • • , ■ • . - - f ■ ■ . 

- v - . . i . " • ■>■*:■ 

» . < ... . . < 

reportLevelData pObLeve lTr acker , LevelToSave, currehtGame, currehtUser- 

-"- • • •• " . i ...*«. . . ■ .. ■ 

savereeords me V ■'...,<.:.-■ ■'■ - 

closeRecords me - ;. . • • ■ :' ' .. \ v . • 

\ """ "' \ •' - .'" , ' ' ' . . ., . -' • '.- 

' "' ■ : ; . \ ' ' . * • • •. : • ■ ; ; 

on lpadchart' me,, whichuser handler to generate a chart list for progress : 
. -- (function) • * •* f •* v. ■"■ 

if voidR (whichUser) then set whichUser = currentUser. - 

openrecords me ". . • ; , ' . : . ■ . • ; 

set chart list = list ( ) 1 -i ..- ; , 

repeat with x = 1 to 6 . . , .,* 

set thisrecord = whichUserfitX V ■ f . 

set whichLevel = item I of line 1 of field thisRecord : of castLib' castLibname 
set HighLevel = item 3 of line 1 of field thisRecord of castLib castLibname 

■ - ; set .templist= list ( ) w * • v , 

append templist, value (whichLevel ) • . % k ; 

append teirplist, value (HighLevel ), ' , : 

append chart list, templist , . r . ' 

end repeat 1 **' , ;: " , . ■ , r ■ ■" V J 

closerecords me . ! • v " : . 

return chart list v ' x .* 




on g'etHighLevel me, whichUser, whichGame ; 

L . Pub./ ' ;. ;;.'•;*':'''..'•';. ■ ';*■ /. :> . ; . ' 

(function) ' * ! 

returns high level, stored in 
--item 3 of line 1 of field •whichUser ' & •WhichGame " 

if ^ voidP (whichGame) then set whichGame = cur rentGame . 
if ? ; vpidP (whichUser) then set whichUser = currentUser •• 

* - ■ . * . ■ " • - 

if stringP (whichUser ) then set whichUser . = checkandConver tuserName (me, whichUser ) 
if whichUser =/G then ; - '* '■' / . - t - 

alert "This Name ,is not in the records . Check spelling or add this name to your . 
records * . ' . : ■ • 

abort ' ■ • ; i ; ' 

'■■-,*'' - . .!'**:•■ % 
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end if : . 

if in tegerP (whichUser) then set whichUser =. checkandConvertuserName (me^whichUser) 
if whichUser = 0 then •; . ' : ■ 

alert "Check your- data. There is, no user name at that number" 

. abort • : ; - i \ ' . ' ' ■ \ - . 

. end if . , . '■' /. , ;• • - 

• r ' ' * . ' - ' ~ ' • - * • -l w 

i " 1 . . ' - ' 

if not iritegerP (whichgame) or whichGame < 1 or whichGame . > 7 then 
alert "Please indentify the 'game with an integer from 1 to 1 . T- 

abort : : , 

end if -\ v ' / >' - " ••• y 

; openRecords me .' • - 

put whichUser ScwhichGame into whichRecord v 

put item 3 of line 1 of. field whichRecord of castLib castLibriame into highLevel 

closerecords me . ; - ' ; 

. return highlevel , ' . ' .' '-• - 

end ' ■ .. . , . •. . 

• . . ■ . • ' ■ • • - -•■ , ■ > 

on' setNameNumber me., entername, enternumber. ' 

--- jim's handler to init the game V-.' - '•: 

openrecords me - , ■ •• ■*■ - r - ■ . \. • ... 1 . 

put entername into line 1 of field 4 of castlib castlibname 

put enternumber into line 2 of field 4 of castlib castlibname 

saveRecords me . \ * V ; 

closeRecords me ,• ■•' ' . . : 

end . "' • • •'- -'. ■ ' . " • ... '•' • • " - • '. 



on geUNameNumber me 

V- jim's handler to see if game has been inited 
openrecords me . . . 

put line 1 of field 4 of castlib castlibname into entername 
put line 2 of field 4 of castlib castlibname into enternumber 
. return enternumber V 
closeRecords me - ' . 

end ; ; ' ■ ■ V . ?. \ . .-'* . .;" . 

on setUserPassword me, password 

--12/30/97 . :\ , . . *' 

openrecords me , : ', ■ 

put password into line 3. of field 4 of castlib castlibname , 
saveRecords me v . .. - 

closeRecords me - 

end . ■ • \ . • 

on getUser Password me 

12/30/97. ' . - 

op>enrecprds me 

put line 3 of field 4 of castlib castlibname into password 
return password ; 
closeRecords me r " '■ 

end ' - ■ > : " .' 



. 1 



on setProStatus me, Whichlslt 

— Pub. . .} ' ■] ; • 

y- sets professional status of this usage arid writes r 
.status to member 2 of "Records .Cst " pass 1 if pro and 
pass 0 if not pro. \. •• 

l" - ■ * . . • " 1. : ' ' 

i ■ 
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openrecords nve , . 

put whichisit into line 3 of field 2 of castlib castlibname 
saveRecords me • . - 

closeRecords me ', 
set prostatas = whichisit 
end . 

* * - ... 

• . i ^ - 

* ,. - , ■ 

on getProStatus me -- (function) . '■• . 

: - - pub. - . 

retrieves Prof essionalStatus from member 2 of castLib "r cords. est v . 
Returns the item as a string ; • . • • 

reads line 3 of field 2 of castLib "records .-est f , 
if is there, it defaults to proStatus of 0. (home use) 

openrecords me \ : ; / 

put line 3 of field 2 of castlib castlibname' into whichisit 
if whichisit =."" then set whichisit = 0 

set proStatus = whichisit . / " - 

return whichisit ■ ' ;: 

closerecords me • . 

end " • 4 . ":' '"■ v 

on setUserPrefs me, whichUser, pref List ' .. . 

"-- sat' up a seventh; c ist member for whichUser named whichUser^"?" 
.. --takes a list of 6 sublists, each of four items for the four 
preferences t o be stored for each game: stores the lists on 
six separate j ines line 1 for game 1 line two for game two etc. 
set Pre f Cast = whichUser& ; 7 " 
openRecords me • 

if the number of member Pref Cast of castLib castlibname = -1 then 

makeNewPr e f Cas t me, whichUser 
end if 

repeat with x = 1 to 6 

put getAt (pref List , x ) into gameList 
repeat with y == 1 to 4 > , 
if y < = 3 then — first three are toggles 
1 put getAT (gameList , y) into item y of h line , x of member PrefCast of castlib 

castlibname . , 

■ - . . . , • * ■ ■ 

else fourth sets new level to start at 

if getAT.( gameList, y) == 0 then next repeat — no positive integer, no change 
• " set thisRecord = whichUser &x.. > . ■ 

if x = 2 then -- - egg basket so reset bounceNum also ; 

put 0 into, item 4 of line 1 of member thisRecord of castLib castLibName 
end if "\ 

put getAT (gameList, y) into item 1 of line 1 of member thisRecord of castLib 
castLibName * 

I purposely choose not to call setSavedLeved here so as not to 
change High score until player plays at new high level . 
ad j us t Leve lLi s tForChangedLeve 1 pObLevel Tracker , whichUser, x, getAT (gameList,. y) 
-~ above, we need to wipe put all completed levels for the new catagory which 
-- the user is going into, if any completed levels are there, 
end if " 
end repeat 
end repeat 

saveRecords me ... . . 

closeRecords me 

end : . ; '"• 

on getUserPrefs me, whichUser 

returns list, of .6 sublists 
— each is games profs . item' 1 of list ~ game 1 pref s etc. 
set PrefCast = whichUser&"7 "" 
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openRecords me 

if the number, of member PrefCast of castLib castllbname = -1 then 
makeNewPrefCast me, whichUser 
SaveRecords me 
end i f . . . . 

■ put field PrefCast of castLib cast libname into prefs 
set PrefList = [] ; 
repeat with game = 1 to 6 
set tempList ■= [] 
repeat with y = 1 to 4 

if y mod (4) ■■== 0 then — next to get current level, and convert 
set thisPref = getl^velNum(pObLevelTracker , game , whichUser) 
" : ' else . 

set thisPref .= value (item y of line game of prefs) 

_ end if ' .' ..-'/■ • * - ' 

append templist, thisPref 
end repeat * 
append pre f List, tempList / , 

; end repeat '. .:* . ; .- 

closeRecords me • ' ' ■ . > • 

return prefList 
end 



on getUserSkipGameList me, whichUser V 
. returns six item list of bod leans J . ■ 

1 means skip that game . 0 means play that game 
openrecords me • "•■ ' ' ": 

set PrefCast = whichUser& "7" 

if the number of member PrefCast of castLib cast libname = -1 then 
makeNewPrefCast me, whichUser 
SaveRecords me 

closeRecords me . o 

return [0,0,0,0,0,0]-- no prefs so return "no skip" list 

end if . • , , ;'•* 

set skipList = [ ] 

put field' PrefCast of castLib castLibName into prefs 

repeat with x = 1 to 6 r - • 

, append skipList, value(item 1 of line x of prefs) — skipped games stored here 
- end repeat •• v.." •'*.'"'';:..• \ ■ *.: 

closeRecords me * r 
■ return skipli>t 

end ' • . '■ . ; 



on getGamePrefs me, whichUser, whichGame 
. returns two item list of bop leans 

-- first: whether to disable "replay* button, 1 = . disable, 0 = don ' t disable 

second: whether to disable "YesOrNo" prompt at end, 1 = disable, 0 = don't disable 
openrecords me • - 

set PrefCast = whichUser&*7\ 
• if the number of member PrefCast of castLib cast libname = -1 then 
makeNewPrefCast me,, whichUser 
saveRecords me 
end if „ 
set gamePrefList - [] 

put field PrefCast of castLib cast libname into prefs 

append gamePrefList, value (item 2 of line whichGame of prefs) — disable replay button 
append gamePrefList, value (item 3 of line whichGame of prefs) ~- disable yesOrNo? 
closeRecords , . . 

return gamePrefList 

end . ' . 
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on getGameLevelLists me., whichuser .' 
pass request to level tracker , 

— returns list used by progress chart, and \ 

— to display check marks in prefs screen. . 
return getGameLevelLists ( pObLeve 1 Tracker , whichuser) 

end ' 

.- • ■ - " ' . . ■ ' » * 

---jim changed ' - ' " 

on new me ; .• - : 

'-- Pub.. .:y:- V .. .'_'.»- .'• ; Kr 

global gCastLibName 

set castLibName = • Records. est" -cast where records are stored --jim changed 
set gCastLibName = castLibName . * 

set myHandlers - 0 * * : - 

set myHandlers = GetMyHandlers (me) - .. . 

. initProStatus me — read proSt at us from member 2 of cast - Records .est V, : 
- set pObLeveiTr acker = * new ( script ' - compl e tedLevelTr acker " , cac tLibName ) 

checkCastSizes me -- call mairitanance' function, to trim members over 30500 characters 
'vi if the name of member 10 of castLib castLibName <> "Def aultPref s"; then , 
V need to install default cast member first time new version starts up 

-- may act as a marker for. other . first time stuff. . « 
; /duplicate member "Default Prefs" of castLib 1, member 10 of, castLib castLibName ; . 
. .save cast lib castLibName . : / 

end if . '■ ;. • " ' . '• '. 

: return me , ,,- . , ■ . < •• 

end •• . * \ \ . / >"■■[ ■ • •• . . 

on xx- - - : — - -Private Handlers - ■ ~~ . !; . ~. > ' 

\r -•- i 'm a separator ' : . . ' • . .'/•''. . » : 

end -.- • ' " *. ' ,'• v- \- . "- . 

on AddToScore me, howManyPla'ys . 7 howManyRight , howManyPlays2 , . howManyRight2 

r Pub. w " . • ■ . " " r - , . . .. ' 

main handler for writing scores to. "Records" • 
must be called after a new game is set up and user r . 
etc; are all selected. Last two params are only used in . 

— "BasketofEggs" game. ;■ ■ • ; ; 

t i ' ■ ■ ■ *-■■*■'. - 

if VoidP ( currentUser ) or VoidP (scoringLevel ) then , . . : 

-- check that "SetUpRound" has been called to init values for " < ^ 

UserName and CurrentGame. If • not" alerts will come up . . * 

•■-...*.'■ . • . ■ . [. ■ '■ '■ _ . .'i ■ • * 

alert v Make : sure to use handler ■& 
: handler ■£c&QUOTEfic-AddToScrore"&OUOTE& - . Please check your lingo . " 

: • - abort. ' • . 

end if ; .:. . • ;• *■-.'■ 

if currentGame = 2 then 

check to see if we are playing "basket 6 eggs" and if ^ 
— so check that the correct number of parameters are- being passed. 
-- also set a flag for adding the two extra params down the line 

- if { voidP (howManyPlays2 ) or, voidP(howManyright2) ) then 

alert. "Basket-of- Eggs takes two extra scores, please check your lingo" 
abort; • • • • . / - ; • • 

i _ i i .i 

' else . ■ • '* . / . . ' . . . 

set- EggBasket- ~ true ' 
end if - * - \ " ; • • . 

end if ■"' •' - ; 

■ ■ ' ... . . "• • . • •■ .• . 
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set thisReeord = currentUser&CurrentGame - \ 
put field thisReeord of castlib castLibname into- record ; 
--puts everything into variable for faster access 

'4 ■ ■ - . • . " • i , " • : 

put item i of line 2 of. record into lastDate check date of last writing 
if -lastDate <> the date then -- first time writing to this game in this session, 
put the date into item 1 of line 2 of record — store todays dote 

nut the number of lines of record into item 2 of line 2 of record r- store starting 

point ' * • - .-" ^ . " . ; 

. ■ . * ■ > ■ ■ i •.. "* ■ • ■ «'•--■ ~ • 

" end -if , ■ ' : . . : - " , . • 

• . . • ■ : - . • • . 

put integer {item 2 of line 2 of record) into whichLine : 
put the number of lines of record into numLines - " 

... • ' - ■ .- ; - . ' "*-'-.. 

if (wh ichLine* 1 ) > numlines then ; .-'.,>". " 

• - - * # "} > ■ ".■ . • • , • . . . 

--'w~ haven * t yet" written on this' date . ' 

-- -r.rj we make' a new record at next line , -\, .. \ 

'-t >u:d save nev: number of sessions 7 , 

.: put the date into item 1 of text ; ' • \- \ , ' . 

put scoringLevel into item 2 of text '. --- 

putv howrnanyPlays into. 'item 3 of text"' ' ■ 

put- howmanyRight into item 4 of text; ' ; 

if EggBasket then basketof Eggs ! ! ♦ " V 

. put howmanyPlays2 into item 5 of text 

put howmanyRight 2 into item 6 of text "c , 

end if. . ••' - . • '. - . '. - ; '-• „■.-. 

■ . ■ , ; • ." , i ■ ■■' * ■ • ■ • 

put text into line (whichline >2 ) of record 

put integer (item 2 of line 1 of record) into numsess ions -- .get number of previous 
sessions ■" .. " . * ■' . ■■■ •' 

set numsess ions = numsess ions + 1 r- increment for today's session 
put numsessions into item 2 of line 1 of record store new value '■ 
put record into field thisReeord of castlib castLibname 
exit . ■■ , : '' >. . 

end if. . . ; ■' ; 

if we get here there is a record already stored so we check ^ 
to see if it is at same level as scoring level ; 
-~ if it is we adjust the values of this line accordingly 

- ' * * * • *. - 

repeat with x - * (whichLine+1) to numlines ■ . 

if . (item 1 of line x of record = the date) and (item 2 of line x of record-* 
= scoringLevel) then ' 

set NumPlays = item 3 oZ line x of record 1, ! 
set numRight. = item 4 of line'x of record .. 
set numPlays = numplays + howrnanyPlays ,« : 

set numRight .= iiumRight + howMany Right 

put integer (numplays) into item 3 of line x of record " 
put integer (numRight) into item 4 of line x of record 
if eggBasket then / . 

set NumPlays = item 5 of 'line x of record ' \ 

■ set numRight '= item 6 of .line x of record . ; ' 

set numPlays =: numplays howrnanyPlays 2 

set numRight = numRight howManyRight 2 

put integer (numplays ) into item 5; of line x of record 

put integer (numRight ) into item 6 of line x of record 
end if . : ' '■' 

put record into field thisReeord of castlib castLibname 
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exit ,:' - , ' ; ' ; : ' . • 

endif ' • •• . 1 •.. ... • • . , . . ■ / ..... . 

end repeat • : • v 

if we; get here then there is no record for this level at this date 
, so nve make, one up . ". - • ',. « . • 

put. the date, into item 1 of text 
put scoringLevel into i tern . 2 of text ? • 

put howmariy P 1 ays into item 3 of text > . , • : 

put howrnahyRight into item 4 of . text 

if eggBasket then r 
put. howmanyPlays2 into item 5 .p'f: text 

put howmanyRight2 into item 6 of text ,' . ,«■"-" 

• end if .'• 

put text into line (x : ) of record " ^ * . - 

put record into field thisPoeord of cast lib castLibname 

exit . / ... • ' : " "\ ■ . v ' • .'V '. 

end \ ••■ ■"■ 1 ' V- • :■ 

* - < ' ■ .■ ■ • . . .. 

on setSavedLevel me, whichLevel ' . ■■ « 

- - pub . . , • . ; . ' •.. , ; - --• . 

. use to save level at which next game is to be played v' , 
most' time it is same as " scoringLevel ■ but in special ' 

case where user has jumped levels tc a new "skill game" \, r 

the rest of round is played at the old (scoringLevel) level ; 
. -- but the next round will • open to the new level. Hasy huh? \. 

set WhichLevel = : Value (WhichLeyel) > ' 

set thisRecord = curr en tUs er &Cur r en tGame 

put item 3 of line 1 of field thisrecoid of castLib castLibName into HiLevel 
put WhichLevel into it^-m 1 of line 1 of field thisrecord of castLib castLibNaroe 
if value (whichLevel) > value (HiLevel ) or Hilevel .= then 

put whichLevel into item 3 of line, 1 of field . thisrecord of castLib castLibName 
if currentGame = 2 and scoringLevel > 30 then 
• — r reset counter for EggBasket bounce function* 
-- when the counter passes 5 we, bounce the user to 
new sound family : ; > - 

• •".put 0' into item 4 of line 1 of field thisRecord of; cast lib castLibName 
end if . ' • • - \' , 

■ end if "\ . "'. .-_*:' '\ : .'\ ' • • ' ' >< '"■ ;' 

set sayedLevel = whichLevel ' \ ■* 

•end; . } ' 

.■•■•*■..•' ' • . - * 

on set ScoringLevel me, whichLevel * 
pub./priv. , : , 

use to tell recordKeeper at .which level to write out current score. \ 
— Also checks whichLevel against HighLevel (pulled out of item 3 of 
line 1 of the current record. If whichLevel. is higher it 
replaces stored highlevel and property highlevel with whichLevel ; 
set WhichLevel = Value (WhichLevel ) 
set scoringLevel to whichLevel 

if Value (whichLevel ) > Value (highLevel) then . '. 
set thisRecord = currentUser&CurrentGame 

put whichLevel into item 3 of line 1 of field thisRecord of cast lib castLibName 
set HighLevel ^ whichLevel 

if currentGame = 2 and scoringLevel > 30 then \ , 

--reset counter for EggBasket bounce function . 
--when the counter passes 5 we bounce the user to 
' -- new • sound family 

-put 0 into item 4 of line 1 of field thisRecord of cast lib castLibName 
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/ set NewHigh = true 

end if , . , •:■ 

■ end if ' : . . ' • : '.' • 

end • . . ... . ■ \ - ■■■ " / , 

on CheckEgg Ba s ke t Bounc eNum me 
if scoringLeyel < 31 then exit 
set thisRecord = currentUser&currentGame 
if NewHigh. <x true then 

put value ( item 4 of line 1 of field thisrecord : of castLib castLib^ame) into numRounds 
set nuinRounds numrounds : - , . • . . ... 

put numRounds into item 4 of line. 1 of field this record of castLib castLibName 
' else- . ... *' • ■ - •" '". •' \ :/ ■ 

set newHigh = false . '* 

end if . * ■ ' ' . • :,' 

end •' . •', • . • " .. . * % ' ♦ • " \ • % ;. • ' . .... * • . \ . ' > , . \ j 

on setUser me, user " * ' ;. 

priv. - ' ., " ... ; • • . . . : ' , • '. 

--takes either user's name (must be exact ) and checks it against the 

— list of users in cast member 1, or will take a number and .retrieve 
-- the user name as line "user* of cast member i. Also checks to see 
--that there is a name at that line 

if stringP (user) then , . • . ,-\ 

set user = checkandConvertUserName (me, User) > •• ' .. . • 

■? if user = 0 then • - - • ' .* . . ; . 

alert "This Name is not in the records. Check spelling, or add this name, to your 
records." . _ .... : ■ <\ * 

abort ;■ ". - ' \. '." : \ r '.. ..- •■ ; 

■ else - • ' '• ." •" ' ' • . -■ ' ; ' \ - : 

• • . •.. . .• • . • • . . , .• .. . ■ 

set CurrehtUser = user . 
, put "Current User =" t& currentUser . ■ - ■ 

exit -• 

end if . - " - : - '■ ' ■ " ' '* 

•• end if . . . . ; ' , • . ■ ■'. - -\ r - ■ 

if integer P ( user)' then. ... ... , 

set user = checkandConvertUserName (me, User) ' . * 
if user =; 0 then ; , . . •; j. ' 

aleirt "Check your data . H*ere*.is' no user name at that number " / . 

■ abort ' V ' - ' 

*■ .. else . ' . • •■ \« . ' " 1 ' : '. 

■ • . ■- ■ • ... . • • . • . . . . ■» • • ■■ . , - 

set currentUser = user . : •'• . . 

• . put "Current User ' = " currentUser V 

.... ...... ,. ^ . 

- end -if - ■ " . ■ * . <• . : ' • . 

;• end if ' " • ' :> . ' • .. . 

end ., • - ; - V- : ■ - ' ' ■ 

on checkAndConvertUserName me, .whichName, ReturnLineNum function 
' Priv. ! . . , •'■ ' • .'. ■ V' • '■' . . - ; ;. 

Takes a string and checks to see if it is in list of ^ 
user names stored in field 1 of castLib " records - est • . 
if it is it returns the string, if not it returns 0 . 

— if ReturnLineNum =• 1 , . returns the lineNumber for deleting (2/2/98) 
-v /Also will take an integer and check to see' if there is a name 

at that line, of field 1. If so' it returns the name on that . ' 

line, if not it returns 0'. 

-. * f * 

if not stringP ('whichName) and not in cegerPJ whichName) then * 
alert "Expecting a string or "an integer . 'Check your lingo.", 
abort' • . ' . 

end i f . . ; ' ... 1 
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if integerP( whichName) and whichName < 1 then \ 5 

alert 'Expecting a positive integer. Check ;-our Lingo. - 
abort . .' • :'• ; - ■ w . 

end if ?: N 

openRecords me 

set userList = field 1 of castLib cast! ibname 

closerecords me ; 

set user = 0 * * . ':'/. • 

t ■ - . ' * 

1 - . ■! ■ ' 

if stringP (whichName ) then check to see if name is on the list 
set lastLine = the number of lines in ,userlist 
repeat with x = 1 to lastLine 

if line x of user list - whichname then 
set user = whichname 
- exit repeat ; \ ^ : , -. .. • 

end if *. . 

end repeat ' , 
. if returriLineNum = 1 then - — need line in list 

if user = 0 then . v ./ 

return user -- not in list- 
• else ,. " 

return x ]• 
end if 

else just confirming name is in list \ / ' 

return user • 
end if - 
else must be integer so see if there is a name on that line 

if line whichname of userList = " " then - • > 

return 0 • . . 

else' 

set user = line whichname of userList 

return user , . ' s . : " 

. . end if " r , . .; . 

end if ... 
end • 



on setUpNewUserMembers me, userName -. , 

priv. • ; 

sets up 6 castnames for each-new user, one per game. 
'-- Initializes those cast members with a line 1 of "1,0" 
-- "1" stands for savedLevel of game, always starts at level 1 
"0" stands for current number of sesssions played of game 
-,* — Line 2 is init ted with *, 2 . Item one will hold 

the date cf latest play, item 2. is line to start writing at. 
set Num = (({(the number of members of cast lib castLibName -1) /10 )+l)*10) 
repeat with x ,= 1 to 6 . . 1 

set newMemb = Num + x make new member number 

: duplicate member "sampleCast " of castLib castLibName, member newMemb of castLib 
castLibName 

put - " into member newMemb of castLib castLibName 

set the name of member newMemb of castLib castLibName = username&X 
put "1,0" into line 1 of member newMemb of castLib castLibName 
put 2" into line 2 of member newMemb of castLib castLibName 

end" repeat ' 

makeNewPrefCast (me. userName) 
end : • • : : 7 ' . 

■on makeNewPrefCast roe, whichUser . 
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-- sets up 7th east member to hold preferences for user 
--feeds in default member as a template. - . 

— Make sure defaults are correct 

set lastcast = whichUser&"6" ' > 

set newNum = (the memberNum of (member lastcast of castLib castLibName) ) + 1 
duplicate member "Def aultPref s" of castLib castLibName, member newNum of castLib 
castLibName v '■' ' ' '• , 1 

set newName ;= whichUserk " 7 " 

set the name of member newNum of castLib castLibName "'=• newName 

— next build completed level lists from old data 

set CompletedLevelLists = buildLevelLists ( pObLeve lTr acker , whichUser ) 

repeat with x = 1 to 6 

put getAT (CompletedLevelLists, x) into line x + 6 of field newName of castLib 
castLibName -■ ' , "' ; 

end repeat V •, 

end - . ' ; * ' 



on setCurrentGame me, whichGame ; . t .. ... 

. — priv. ■ ■■ . . ; * : . -. 

--use to tell recbrdKeep which game is being played 

expects integer from 1 to 6, not string of name of game 
if not in tegerP (whichGame) or whichgame < 1 or whichGame > 6 then 
alert "Expecting an integer from 1 to 6. /Please check your lingo 
abort 
" end if j 
set currentGame = whidbGame , 
end . . • ' \\-/" • '* : - 

t - ■ . - 

i • " 

■■-*-„■ . , - ' ' ■ 

on initProStatus me 

priv. . / • . .. • " '. 

-- use to. initialize professional status on start-up ' 
hence no " openRecords * command 

put line 3 of field 2 of castlib castlibname into whichisit 

if whichisit = "" then set whichisit •= 0 
' set proStatus = whichisit 

• return whichisit : - .. . - . - 

end 



on GetMyHandlers me 
Priv. 

. . reurns .list of .handlers to property variable 
put value (word 2 of string (me) j into whichCast . 
put the script text of . member. whichCast into text 

put the number of lines in text into seriptLines 
Put whichCast * handlers return into Handlers 

repeat with x = 1 to seriptLines 

if word 1 of line x of text = "on" then 
put line x of text into handlerName 
delete word 1 of handlername 
put handlername & return after handlers 
end if 

end repeat ' \ . - 

return handlers , ' . > :* 
end 
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on GetNumberOf Users me 

*.— Priv. • ' • •■ •• - * ; : • - ■' ■!.. ' V\ ' 

. — walks the casttnember -userNames ■■■ line by line • t 

. and counts the number of lines which hold a name 
— ie : are not just . '• - : ' > : ' ; - 1 

put field "userNames"' into temp , * 

set y = the number of lines of temp . • - \ 

set NameCount - 0 r ; ; t ' - ' .' ■ , •' . ' 

repeat with x = 1 to y ' \. ..." . ' 

if line x of field -userNames" <> "" then set nkmeCount = nameCount + 1 

end repeat •; . • , "■■ t ' " 

return nameCount . ' 

end . ' . . . , ' • ... .. '' 

on checkCastSizes me , ' 

run through records cast and •;■ ck all 
-V- members for number of chars vail field members that is) 
;'->- if numChars is greater than 30000 (or whatever) then •" t '- 

call a handler to delete the earliest session in the record, 
put "checking record sizes" ; . ; 

set n = the number of members of castLib castlibname ' ? 

set fTrimmed = false ■ , \ • .,- - ; 

repeat* with x .= 4 to n V f irst three . members are not* records . 

if the type of member x of castLib castlibname = # field then/; * 
set numChars = the > number of chars of field x of castLib castlibname, 
if. numChars > 30500 then 

repeat while the number of chars of field x of castLib castlibname > 30500 
put "Member "&x&" Contains " &£numChars&& " characters Deleting oldest session 

member." ,", .;. . v ; V •' " - V' ' 

trimMember me , x; / . ; ; . ; \y 
. ; end repeat. '. .. . ; * : 

set fTrimmed = true ■: / .,; 

\ end if .• " - ■ *" ' '• ; • ; ' ' 

end. if ■ - ' ' .. ' y_ • ••' - ' ■ ■> • 

end repeat ~: , > .* . \ .' 

if fTrimmed then "• '■ 

save cast lib castlibname ■ , . '■ ; »"••!.'• ' 

• end if " /- j -• 

- put "done checking record sizes" • - , v 

end ■ ■ - ' • . • .•. 4 • : • ' : '- v - 

on trimMember me, whichMember . ' . : " 

. — first -find the first line after line 2 which has ."a date as first item 
set n = the number of lines of field whichMember of castLib castlibname 

repeat with y =3 to n sessions stare after line 2 

put Item 1 of line y of field whichMember of. castLib castlibname into testDate 
if testDate <> "" then look for date, string 

exit repeat y will be the first line with a date. 1 
end if • ; . ,, ' . y ' . . - . .; . 

end repeat : . , 

■-- now loop through to count the lines which have the same date 

put item 1 of line y of field whichMember of castLib castlibname into theDate 

set endLine = y : ^ L . ^ * 

repeat with x = (Y+l) to n 

if item 1 of line x .of field whichMember of castLib castlibname =' theDate then 

set endLine = endLine + "1 , ■ .". ." • ' . 

else ; ■ • • .' . . . '- - 

exit repeat . - ■ • ' " ' * ■ ■ • 

end if ■ >■ . - : . : ' = 
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end repeat 



. - 



now delete the lines plus one wore to. keep empty lines from growing. . 
delete line y to endLine + 1 of field whichMember of castLib castlibname 

--.finally decrement session counter to reflect deleted session, , - \, ■ 

- - and adjust line count in ease trimming occurs during 
. -> a sesr ; ^n or between plays on . same day. Causes recordKeeper to write 
two iVves of : data for same level in that case. " 
set linesDeleted -= ( (endLine + 1) -y) + 1 . • 

.put ' integer ( item ,2 of line .2 of. field whichMember of castLib castlibname) into numLine 
>•* set. NumLines = numLines - linesDeleted / 

put .NumLines into item 2 of line 2 of field whichMember of castLib castlibname 

r '* . .—■ • • . . - • '.•*"."-•' ' • . ■ 

put integer (item 2 of line 1 of field whichMember of .castLib castlibname) , into 
nums ess ions 

' get 'number of previous sessions . . 

set humsess ions = numsessions . ■ - 1 decrement for today's session 

if numsessions < 0 then set numsessions. = j0 ' '• .*Y 

put numsessions into item 2 of line 1 of field whichMember of castLib castlibname 
■ store .new value . . " ,' : . 

end "* , • ' , ■-' ■* » • , •. ' « 



on openRecords me . • 

priv. . ' ' ' ' . ; ; '. ' 

-- opens castLib "Records .Cst " for .read or write ; 

global gDataSave Path ' .. • 

set the filename of castLib CastLibName = gDataSave Pa th&CastLibName 

end . : 7 



/"•' \ on SaveRecords me " " . ; • • 

\ J Priv. • - : ; ' / . • : . ;'" Y 

. save cast lib CastLibName 

On CloseRecords- me . 

Priv. . '• / ■ '• . \ 

set the filename of castLib CastLibName = the pathname & CastLibName 

end ; " .' • ' V- • •' ; -. I 



on xxx- - -. -Testing Handl ers - 

i'm ! a separator 

nothing.--.. / ■ " ' ' ' : . " ' . . . " 

end' • • • 1 • 

r : ' . ,'"*.'. ■ ' -. . 

on showHandlers me . '. • 

-- Testing ; .« • - . - . 

puts list of handlers in message window 
put myHandlers / . ! . . . 

end ••. ■" 

• • ' •. ., ■■ , 

on showProps me ■ \ ■ 

. testing.- . *;-* 

--puts list of properties and their current values in message window 
set PropNum - count (me) ..." ? - - 

; repeat. .with x = 1 to PropNum _ 

'.. set prop - 0 . ■ . 

set ttiisProp getpropat (me, x.) ' <■ *: 

V ; if thisProp ft my Handl ers * t hen A next repeat 

put (string (getpropat (me, x) ) ) -~kc* getaProp (me. thisProp) into prop 
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Parent Script3:CompietedLevelTracker . 

■ ■ ■ . - j ' . * _■»<*- .1 * * « 

—1/4/9,8 ' • . ■ >;"-.V\ ,.'••' , '* ,' ; ; '' • ' • .V: . .. 

property myHandlers, CastLibName, openningLevel \ ■, 

•*- , . ■ • % - ■ * 

■ * 1 * " ' . c • * - . . 

on x: — ---Public, Handlers ------- , . / : • , ' 

-- I'm a separator . , . > • . . . : . , . {, , . • 

end i • • ' « " 

♦ . - ■ ■ 1 * I* * ' * " 

on buildLevelLists me, whichUser \ ; : 
— for first time using version 2 with \ 
-- old player. Looks at each game's high level and builds : ! 
~- a list of levels up to : that ; . This works since version 1 always 
~- ratchets up from level 1 oh up. Must be called, with records openned 
-5 by gRecordKeeper . Returns the list to the recbrdKeeper for saving - . 
set LevelsList = [] " .: : . 

repeat with x .= 1 to 6 / -> ' ' ' ■' ; 

• set tempList2 = [:] \ ■ .; \ v. '. r - ... 

- set thisGameRecord = whichUser&x . 

set HighLevel = \" " r 1 : - * ; / ' ... , .. ..,\ 

put item 3 ..of line 1 of field thisGameRecord of castLib CastLibName into HighLevel 

if highLevel ; =? * * then \ ;■ v 

- -. , no play yet for game so just append the empty list 

' append LevelsList, templist2 . <: ■ ■ 

. • else"/ - ■ . • .' = " v . .• 

, set highLevel = value (HighLevel) 1 / 

put value (item 1 of line 1 of f ield thisGameRecord of castLib CastLibName ) into 
savedLevel ' - • ' : '• .. - - '. ."•*■ ... • •;, * • •• . • 

: — if game is maxed out savedLevel: will be one unit higher than highLevel 

set Level = max (savedLevel , HighLevel ) . , • 
repeat with y = 1 to (JLevel-l) :• 

-- highest level reached is always not yet completed, so. nex: lower * 
r -- level will • be highest completed, *' 4 . 

append tempi ist2 , y *'■ 
r . end repeat . / • . 

append Level sList, templist2 
end if . . 1 V ' 

end repeat ',' : ' • : • • 

- return Level sList -:. ' / • ■ : /- . J " • : 
end • ■ ' ; ■- ' ■,' • '. / 

' i , " - f " . • ■ 

on set OpenningLevel me, whichLeyel . - : - 

— - in order to track completed levels in version 2 we need to 

— know what level the round started at. When the round scores are reported 
-- we can check the levels played and assume that' any levels within' the 

-- openningLevel and (savedLevel - 1) have been completed. * 

--this handler will be called only and every time from the setUpRound handler in : 

gRecordKeeper and therefore should always be accurate 
set openningLevel = whichLeyel 

end •' , • ' 

on reportLevelData me, LevelToSave, whichGame, whichUser' 
-- here is main work of tracking arid reporting '; ■ - .■ 

-- levels completed. This gets called from recordKeepers " saveRoundScores " 

- - handler every time user's scores are reported. Pa rams are 

the saved level which is the. next * '.' - 

level at which game will be played, comparing the openningLevel property 
- ,tp ( ,the savedLevel will allow 
, - - us to determine , which levels where actually completed. 
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if the saved level is less then the openning level then 

the user dropped and we need to delete levels from the 
-t completed levels list.. . ' , 

set UserPref sCast = whichUser&7 

set savedLevelsCorapletedList =-»' \ ' 

value (line whichGame+6 of field UserPref sCast of castLib eastLibName) 
--get last list of completed levels 
sort savedLevelsCompletedList 

set x =.. (level toSave - openningLevel ) ■ what, happened 

set LevelsToAddList =? [j 
set LevelsToDeleteList = ".[]. 

i" - .... 
if x < 0 then -- user dropped ; 

set x = abs(x) 

repeat with y = 0 tox ; 

create 1 list of levels that user fell through 
append levelsToDeleteList,, openningLevel - y 
end repeat . ' ■ 

else if x > 0 then --- user rose 

repeat with y = 0 to (x - 1) -- saved level is never completed 

append LevelsToAddList, openningLevel + y 
end • repeat . ^ 

end if ' ' ' 

» ' - ■ • . ' . • 1 - . • 

* .■■■-•■».- 

if count (LevelsToAddList) then, : ;.. - 

, repeat with level in level sToAddList 

if not getOne (savedLevelsCompletedList/ level) then 
append savedLeveisCompletedList , level 
■ . end if ' \ . ■ ;. ; ; ; •• ■ < 

end repeat , 
end if • . ' 

■ " .■*.»'.■ ■ ■ ■ 

if count (levelsToDeleteList) then 

repeat with level in 1'evelsToDeleteList .. 

if getOne (savedLevelsCompletedList, level) then ; l ■ 

deleteOne savedLevelsCompletedList, level 
end if 

* - . . i , • " 

* • 1 j i - 

i * , , ■ _ t 

set savedLevelsCompletedList = — 
co r r ec t Leve 1 L i s tFor Fa 1 IThru (me,- savedLevelsCompletedList, levelsToDeleteList, whichG:*me) 
-- need to see whether user fell through a catagpry that was already: 
-- completed and if so delete those levels from the savedLevelsCompletedList 
end repeat 

end if . ; ::■ ■ \ 

if not count (LevelsToAddList) and not count ( levelsToDeleteList ) then 
-■- user started and stopped round at same level 

just to be sure we '. 
if getOne (savedLevelsCompletedList , level toSave) then 

deleteOne savedLevelsCompletedList, level toSave 
end if \ : - 

end if 

' ■' - * - * 

m ' ■ """ * 

1 i 

put into line whichGame+6 of field UserPref sCast of castLib eastLibName 

put savedLevelsCompletedList into line whichGame+6 of field UserPref sCast of castLib 

eastLibName '..•*, - . 

end ' -- . - 

on correctLevelListForFal IThru me, savedLevelsCompletedList, levelsToDeleteList; game 

if .user fell through a catagory line and if they had already j 
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completed the eatagory they foil out of we need to 

delete the completed levels, so we check the de 1 e t edleve 1 is t to see 
-- if it contains a boundary level and if so wee need to 

delete all the levels in the eatagory that, the boundary level 
-- came from 

set game Lis t ToCompa re - getGameCatagoryList (me , game) * .. . 

set tempList = f] . ""; : . ; 

repeat with level in levelsToDeleteList 

set testList = getAProp (gameListToCompare , level) 
if not. VoidP(testList ) then ' . 

-r- if the level is a property in the 1st . 
--we store the value associated with the level 
-- which is a list of 2 levels , we delete all levels between 
--.these two levels, inclusive. : ., ■ 

append tempList, getAProp (gameListToCompare, level ) 
end if 
end repeat :' 

if count ( tempList) then 

if list has items we need to take it appart ■- \ 

-- and walk through all the lists in the list 
-- deleting those levels from are saved level list 
^- if they are there .;• 
repeat with thisList in tempList 

repeat with thisLevel = getat (tempList , 1) to getat < tempList , 2 ) 
if getOne, (savedLevelsCompletedList , thisLevel) .then 
deleteOrie savedl^velsCompletedList , thisLevel 
. end if 

end repeat \ .'* ' . 

• end repeat , 
end if ,, ' ; 
return savedLevelsCompletedList -V 

end . - - "-' •• • . — • ' • . 

. • ; ■ ..' . ; • . . ... .. . • 

on adjustLevelListForChangedLevel me, whichUser, ; whichgame, newStart 
--if this is called it means teacher placed the student in a new 
— eatagory from the pre fs screen. If so we need to wipeout all 
-- completed levels that may be in that eatagory already so 
.-- user starts with a clean slate there. 

set UserPref sCast - whichUser&7 . 
put t " User PrefsCast ■■= *&UserPref sCast y 
set savedLevelsCompletedList =-» • 
value (line whichGame+6 of field UserPref sCast of castLib castLibName) 
-- get last list., of completed levels \ • " - v 

sort savedLevelsCompletodList 

put " savedLevelsCompletedList = •^savedLevelsCompletedList 

set gameCatagoryList = getGameCatagoryList ( me, whichGame) 
•: put "gameCatagoryList = *&gameCatagoryList 1 
. -- get lis£ of all levels in 'each eatagory 

set newStart = convertLevel (me, newStart , whichGame ) • 

-- first convert new level to eatagory number; 

set 1 eve 1 sToC 1 ear = getAt (gameCatagoryList , newStart) 

put * levelsToClear = levelsToClear 

-- ;-- in order will give the levels for that eatagory 

repeat with x ■= getat ( levelsToClear , 1 ) to getat {levelsToClear , 2 ) ! 

if get One ( savedLevelsCompletedList , x) then deleteOne savedLevel sCdmj: letedLi st , 
if that level is there, wipe it out 
end repeat - • 
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.' put saveoXevelsCompletedList into line whichGame+6 of field UserPref sCast of castLib 

cas tLibName ' , ' ' . ; " • ... •.<■ ". . • ' . .' 4 » 

finally put the changed list back in the record. Calling handler will take 

-V care of saving and closing records -v 



end 



on getGameCatagofyList me , game f . ; . 

stores list of intervals between catagories for the 
different games. Used by " correctL^velLis tForFallThru * routine - 

to determine which levels to delete if user. falls from one catagory ; . - 

-r- to another / also used to determine which levels to delete 

if the teacher places child at a lower catagory with somer \ '• 
or all levels already completed/ In .this case we delete all the r 

levels for that catagory. ' . * : \ • 

case game of \ - \ 

1:. return [1 : [ 1 , 12 ] , 13 : [13, 24], 25: [25,28], 29: [29, 32], 33: [33, 44], 45: [45, 56]] 
' 2: return [1: [1,3] . 4: [4,11) ,12: [12,20] ,21: (21/30] ,31; [31 ; 58) , 59 : [ 59/86] , 87 : [87,114] ] 
3: return [1: [1,5] , - l 6: [6,11]J: ■ \, / .. ■ ' ■■ -'; 

4: return [1: [1,6] ,7: [7 , 12 ] ,13 : [13; 14] ,15: [15, 16] ] . 
. 5: return [1: [1,6] , 7 : [7/18] , 19 : (19, 30), 31: [31,38] ) ' v; : : 

6: return \ . . •< s ' 

[1: [1,10] ,11: [11,20] ,21: [21,34] , 35 : [ 35 , 40] , 41 : [41,52] ,53: [53 , 56] , 57 : [ 57 , 74 ] ]' 
- rend case • ; ' '• . ' • *• ' : . ' / "- ; • . ':. 

end - ' .:* '•' . •• - • - ' . \ . • .■'-/■'.. ." ir- 



on getl^velNum me, game , whichUser < -.: ( - 

called from recqrdKeeper when building pre fsList to return to "'■ 
dataTest movie. Feed it- the game and username and it • 
returns an integer which: tells the Pre f Screen manager in dataTest 
which levels cast, member (which line blue?) to put up 
set whichRecord = whichUser kgame . 

put item 1 ' of line 1 of f ield whichRecord of castLib castLibName into curLevel 
set whichBlueLine =■ convert Level ( me, cur Level , game ) ' ' 

•return whichBlueLine „ • V '\- 

end , . . • ' •' " • -' v : - 



oh convertLevel me, curLevel , game 

knows which levels in each game correspond to 
which. line is blue in , the preferences screen, 
if game = 1 - then . ' 

case true of 

(curLevel>44 ) : return 6 ' 
. (curLevel>32 ): return 5 . 

( curLevel >2 8) : return 4 -"- ' ' * i. 

{curLevel>24 ): return 3 
(curLevel>12): return 2 

(curLevel>= 0) : return 1 , : ; 
end case 

end if . v ■- ■ ■ " 1 

if game = 2 then •. • 

case true of 

( curLevel >8 6) : return 7 ... 
( curLevel >58 ): return 6 ; 
. {curLevel>30) : return 5 
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(curLevel>20): return 4 
' (curLevel>li) : return 3 
( cur Level > 3 ) : return 2 
(curLevel> = 0) : return 1 
end case 
end if . •'- . - 

if game = 3 then • • 

. case true- of . 
. (curLevel>5) : return 2 
(curLevel>=0) : return 1 
■ end case 
end if 

if game =" 4 then ;< 

case true of . 1 
( curLeve l>i 4 ) : return. 4 
(curLevel> 12 ) : return 3 
( curLeve 1 > 6 ) : return 2 
(curLevel>=0): return 1 
end case 
end if " . . 

if -* game = 5 then 
case true of . 

(curLevel>30) : return 4 
(curLevel>18) : return 3 
(curLevel>6) : return 2 
(.curLeve 1>=0 ) : return 1 
V end case . ; 
end if 

if game - 6 then: ■ 

case true of * . 

{ curLevel> 56 ): return 7 
( curLeve 1> 52 ) : return 6 
(curLevel>40 ) : return 5 
( cur Level> 34 ): return 4 . > 
(curLevel>20): return 3 
( curLeve 1> 10) : return 2 
(our Level >=0) : return 1 
. end case * . m i 

end if - - 

» • ■ . ■ ■ 

end- 

•/ . - '■ ■ '-. - - 

■ ■. , 

■ , ' ■ t 

on getGameLevelLists me : ,' whichuser . ' 

called for preferences and pr ogres sGhart; 

returns list of 6 lists," each subList tracking Jan's chart of levels and chart ball 

every position in the ' sublist; tracks a pro-user se table point in the games, levels . 
-- the value of the list at that spot will be an integer that tells Jim how many balls 

to fill in for that part of the progressChart . Also will tell me whether to put 

a check mark on the pref s screen for that group of levels, 
global gRecordKeeper '* ' " .. 1 j 

openRecords gRecordKeeper. >-. . ' . 

set PrefsMember = whichUser&-7" 

if the number of member PrefsMember of castLib CastLibName = -1 then 
. makeNewPr e f Cas t gRecordKeeper, whichUser \ 
. saveRecords gRecordKeeper >- ■ . . : \ 

end if ' . , .•• • ?■ ". 

. . . -. 

■.. . • . : : " • ' 

set GameLe ve lList - •[••]*'. 

append GameLe vel List, ge tCater Pi 1 larLeve Is (me. whichuser ) 
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append GameLevelList, getEggBasket Levels (n*e, whichuser) 

append GameLevelList, getRhymeTimeLevels (me, whichuser) 

append GameLevelList, getRapTapLevels (me, whichuser) 

append GameLevelList, getBalloonLevels (me, whichuser) 

append GameLevelList, getCoalCarLevels (me, whichuser) 
closeRecords gRecordKeeper 

return GameLevelList * . ; •; \ 

end .' • : 1 ' 

, • . • ; . .' .. • . ... 

on getBalloonLevels me, whichUser \ 

set BalloonLevels ~ [0,0,0,0] 

set. Pref sMember ■=■ whichUsert "7 • 

put value (line 11 of field Pref sMember of cast Lib CastLibname) into level sList 

get completed levels list for Kar loons - game 5 ... '. 

( sort LevelsList 1 "* ;• v V ; . ,"' 

if getOne (levelsList, 6) then 

setAT BalloonLevels, 1/ 2 ' . . 

else if getOne (levelsList, 3) then , 

setAT BalloonLevels, 1, 1 • 

end if .v. " ■;• \ } "■ * ■' .' '; •' ' : 

if getOne (levelsList, 18) then , ■ 

( setAT BalloonLevels, 2, 2 <: '-"?'*■. * : 

■else- if getOne ( levelsList , 12 ) then ... > 

setAT BalloonLevels, 2, 1 

end if ' , < .' ' " 1 • ■■- : v ' • ; - -J " . ' ,- -v"! ' ; "■ 

-.- • . \ : ■ • • - ■ - . ' ' • .- * 

■ • . ■ . • ■ j - ■ » •• , . . •. -»■",. . ■ 

if getOne (levelsList, 30) then > ! r . 

setAT BalloonLevels, 3,-2 , 
else if getOne (levelsList, 24) then < *■'.,.* , '»- 

set-AT Ballooru^evels, 3, 1 / 

end if ' . : " ' ' • - ' -■ '-' . ; \. « . 

" ■ ■ i .■,*_■ . > . « ■ ' ■ .• 

if getOne (levelsList , 38) then ; ' 

setAT BalloonLevels', 4, 2 - . 

else if getOne (levelsList, 34) then - 

? setAT BalloonLevels, 4, 1 \ fc 

end if "•' . ' .' 1 .' \< .' - ' • 

■ . ■ • • -..-<- . • ... 

■■ ., .- .. * • •.< '■'.'» - . *■ 

•return balloonLevels ' . 

end . - * , • ■ *' • - 

' ; • * ■ . ; - - - . . ...... 

on getEggBasket Levels me. whichuser .. . 
set EggBasketLevels = [0,0,0,0,0,0,0] 
set Pref sMember = whichUserk m l m ' 

put value (line 8 of field Pref sMember of cast Lib CastLibname) into levelsList 

get completed levels .list * £.or.' Kar loons game 2 
sort LevelsList . '. 

f 

, if getOne (levelsList, 3) then 

setAT EggBasketLevels, 1.1 * : 

end if 

if getOne (levelsList, 11) then . / .- 

' setAT EggBasketLevels, 2,1 ' 

end if \ ■ ' ■ \ ' ■ ' ■ 

\: if getOne (levelsList, 20) then j ■ . 

setAT . EggBasketLevels , 3 , 1 - ; ' . ' ' — ' ■ • ' ■ ' ' \ • . 

end if ; •', ' . - : .. / . • • • ., ' r ■ >; . 

" * ' i ■■ ..... . - 
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if getOne (levelsList, 30) then . 
setAT' EggBasketLevels , 4 , 1 " 

end if • ' - . V" ... ■" *, V •• 

if getOne ( levelsList , 58 ) then • , 

setAT EggBasketLevels, 5, 4 .. 
else if getOne (levelsList, 51) . then. 

setAT EggBasketLevels,. 5/ 3 
else if getOne (levelsList, 44) then: ' r 

setAT EggBasketLevels, 5, 2 
else if getOne (levelsList, 37) then 

setAT EggBasketLevels, 5,1 
end if ! >: ""' . • ■ '.\ • 

if getOne (levelsList, 86) then 

setAT EggBasketLevels, 6, 4 : j 
else if getOne (levelsList, 79) then . • 
setAT EggBasketLevels, 6, 3 ." ■ , 

else- if getOne ( levelsList , 72 ) then 

setAT EggBasketLevels, 6, 2 . 
else if getOne ( levelsList , 65) then 

setAT EggBasketLevels, 6, 1 \ . 

end if \ >, ' • ' 

, . *..•'* * 

« * ■ . i . — -* * . 

' *. ; ■ ■ ■ * M ■ ' ■ ' 

if getOne (levelsList, 114) then 

set/T EggBasketLevels, - 6/ 4 
else if getOne (levelsList, 107) then > •• 

setAT EggBasketLevels', 6 , 3 '\ 
else if getOne (levelsList, 100) then 

setAT EggBasketLevels, 6, 2, 
else, if getOne (levelsList, 93) then 

\ setAT EggBasketLevels, 6, 1 
end if ..- 

. ■ . . ■ *-* . > ■ .1 . < 

' .. ' - "• ■ -' . " 

return EggBasketLevels : ; " r 

end ■- ■ . : . •;. ' "- 

. * , ■ * "".*.'*' 

i ■ • ' 

f - . . . ■ " : 

J 

t ' -' *' t ■ : . ■ . 

',».'*- *' . '. " . i 

on getCoalCarLevel s roe, whichuser — ' / 

set CoalCarLevels = [0,0,0,0,0,6,0] 
set PrefsMember = whichUser&"7 " 
put value (line 12 of. field Pref sMernber of castLib CastLibname) into levelsList 
--.get completed levels list -fcr coal car . game 6 
sort LevelsList V *" ~ 

if getOne (levelsList, 10) . then " ; ■' 

setAT CoalCarLevels, l\ 1 * , 

end if .. ' ■ ■ ' . ,■*./ - '•; '• '• " : . . , ■■ 

if getOne (levelsList, 20) then ^ . • T . 

setAT .CoalCarLevels, 2, 1 
end if • 

if getOne (levelsList, 34) then 
setAT CoalCarLevels, 3, 1 ' 
end' if 

* * - ■ ■ • * * * ii* 

if getOne(levelsList,40) then j 

setAT CoalCarLevels, 4/ 1 ' , : * - \ 

end if . . - '- • 

» 
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if getOnedevelsList, 52) then . . 

setAr Coal Car Levels , 5, 1 : . 

end if • \ " ; .,' 

if getOnedevelsList , 56) then 

setAT CoalCarLevels , 6, 1 
^d i f 

" ■ .. ■ ■ - • • . ■ -. . .. 

if getOnedevelsList, 74) then ; '"' 

setAT CoalCarLevels, 7, 4 
else if getOne (levelsList, 72 ) then 

setAT CoalCarLevels, 7, 3 1 • , " 

else if getOnedevelsList, 66) then 

setAT CoalCarLevels, 7, 2 
else if getOnedevelsList, 63) then 

setAT CoalCarLevels, 7, 1 
end if , , . 

' ' "■ - * ; ' \ : • ' , : . _ ' ■ 

■ ■ ' . ■ - - . -i - . . " . *' ' • 1 * 

return CoalCarLevels • •/ .■.'■* ^ 

end . • . . '. . v- - ■' ■■ ; . ; 

1 . 1 t ' j . , , ^ ■ ■ - - > 

* • J - _ 1 1 * 

on getCaterPillarLevels me, whichuser . ; : ' ,' 

set CaterPillarLevels = [0,0,0,0,0,0] ." • v 

set PrefsMember = whichUser&"7 p 

set LevelsList = [] ' \ ' 

' put value (line 7 of field Pre fsMember of castLib Cas tLibname) into levelsList 
-- get completed levels list for game' 1 
sort LevelsList 

< . ■ . . . . ■ 

if getOne (LevelsList, 12) then 

setAt CaterPillarLevels, 1,3 
else if ge tOne (LevelsList , 8) then 

setAt CaterPillarLevels, 1, 2 * 
else' if getOne (LevelsList , 4) then t 1 

setAt CaterPillarLevels, 1/1 
end if : . .: 

.» , . - ■ T 

• , ■ - ' '.. •'*;'. • -, ' ■ , ■ ' 

if getOne (LevelsList, 24) then • ;v \ * I 

setAt CaterPillarLevels, 2, 3 

else if ^getOne (LevelsList , 20) then V 

■• setAt CaterPillarLevels, 2, 2 I . 

else if getOne (LevelsList, 16) then 

setAt CaterPillarLevels, 2, 1 
, end if •/ / > • . .• A, 

if getQnet LevelsList, 28) then ■ 
setAt CaterPillarLevels, 3, 1 

end if ' > ''■ ■ 

if getOne (LevelsList, 32) then 

setAt CaterPillarLevels, 4, 1 
end if , 

if getOne (LevelsList,, 44) then 

setAt CaterPillarLevels, 5,3 
else if getOne (LevelsList , 40) then 

setAt CaterPillarLevels, 5,2 • 
else if getOne { LevelsList, 36) then. " - . . 

setAt CaterPillarLevels, 5, 1 *" 
end if- 

* - i 

■ - - . . » 
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if getOne (LevelsList, 56) then ! 

setAt CaterPillarLevels, 6, 3 „ 
else if getOne (LevelsList , 52) then - 

setAt CaterPillarLevels, 6/ 2 . ; ^ ^ 

else if getOne (LevelsList f 48) then 

" setAt CaterPillarLevels, 6, 1 " ' ',. .', . 

end if : • • ■ t ; ... . 

return CaterPillarLevels ... ._/ r 

end " . ./. '■ '*■ . 

* ♦ - • : V • ^ 

on qet RapTapLevels me, whichuser\ 

set RapTapLevels = [0,0,0,0] :. " • !v " 

set PxefsMember =■; whichUserk " 7 " 

put value (line 10 of field PrefsMember of castLib CastLibname) into levelsList 

-- get completed levels list for game 4 , A. ' . 

sort LevelsList \ . . . f 

if getOne (LevelsList , 6) then 

' setAt. RapTapLevels ,1,6 - . t ' > . 

else if getOne (LevelsList , 5) then 

setAt RapTapLevels ; 1 , 5- ', " 

•else- if getOne (LevelsList, 4) then 

setAt RapTapLevels, 1,4 . . . 

else if getOne (LevelsList ,3 ) then . , 

- setAt RapTapLevels ;1, 3 \- • . .. . • . ... " : : > " ,'" ' : -"" . ; " ' • . 

.else if .getOne (LevelsList, 2) then - 

setAt RapTapLevels , 1 , 2 " -'. \. 

else if getOne (LevelsList , 1 ) then 

setAt RapTapLevels . 1, 1 . ' - : . : ' • - ■•' - ' ' ' 

end if- • . ' - • "• 

if getOne ( LevelsList , 12 ) then. 

setAt RapTapLevels . 2,6 . . .; 

else if- getOne ( LevelsList , 11 ) then : '■■ ." *' . . 

setAt RapTapLevels , 2, 5 : . • . v ' • ; ' 

else if getOne ( LevelsList , 10 ) then ' . » . '">■: . 

•. setAt RapTapLevels, 2, 4 , ' 

else if getOne (LevelsList , 9) then . 

setAt RapTapLevels .2,3 
else if getOne (LevelsList, 8) then \ ,. 

setAt RapTapLevels , 2,2 . - * * 

else if aetOne.( LevelsList , 7) then . » ; 

setAt RapTapLevels ,2,1 . 
end if .. • • . , " ; v. : . ' - " ■ 

* " ( * . . L 

' 1 

- * T '-. '' 

■ " ' A i ■ , * 

r " . t ~ " - 

if getOne.( LevelsList . ; 14 ) then . '* ' '. 

setAt RapTapLevels. 3, 2 
/else if getOne (levelsList . 13) then 

setAt RapTapLevels . 3 , 1 ' . . ' . . 

. end' if . ' • • • . • • 

if get One {levelsList . 16) then 

setAt RapTapLevels. 4. 2 V 
, . else i f getOne (.LevelsList / 1 5 ) ■ then ■ , 

setAt RapTapLevels. 4 , 1 i '--> . • 

end \{ - ■ .- • ' - . 

■ - - ■ ■ '..*.' ' : * 
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return R[apTapT«evels ^ . 

end • * . ' " '.. 

on get RhymeTimeLevels me, whichuser 

set Rhy^TimeLevels = [0,0] • " 

set PrefsMember whichUserfic'7 " 

• put value (line 9 of field Pref sMember of. castLib CastLibname) into level sList 

get completed' levels list for game 3 
sort LevelsList '.* • \. ; i; ; . • - 

if getOne (LevelsList, 5) then , 

setAt RhymeTirtveLevels ,1,5 
. else if getOne (LevelsList, 4) then 

• setAt RhymeTimeLevels ,1,4 / ■ 

else if getOne (LevelsList, 3 ) then 

setAt RhymeTimeLevels ,1,3 - 
else if getOne (LevelsList* 2) then ; : 

setAt RhymeTimeLevels ,1,2 ... 
else if getOne (LevelsList , 1) then- , t ,. 

; setAt RhymeTimeLevels ,1,1. ... "\ - 

* end if . • - ..' •, ' ■ . ■ \ ' . • 

• . ' . ' • • • ■ • ■ ■ • •_ ... • 

. ~ . - ; :■' ; • * 

if getOne (LevelsList, 11) then 

setAt RhymeTimeLevels ,2,6. 
.else if getOne (LevelsList , 10) then ' t \ 

setAt RhymeTimeLevels ,2,5 " . < • 

else if getOne (LevelsList, 9) then ' . 

setAt RhymeTimeLevels i 2 , 4 
else if getOne (IeveisList, 8) then 

setAt RhymeTimeLevels; 2,3 . \\ 

else, if getOne (LevelsList , 7 ) then:. ; . f . t * 

setAt RhymeTimeLevels, 2 , 2 _ 
else; if getOne (LevelsList, 6) then 

setAt RhymeTimeLevels, 2 , 1 , ^ . 

' end if * • ' - \ ". ■ < . : ; r : • : : : - *" ' 

"return RhymeTimeLevels : ; 

• - • " '• : . ' ' - - ; " ■ ••. " ■** 

•end : ■'. '•" ' '■' • ':. . ' -J. •" • '. • 

. - ! ... ' - . . • . 

. '•• •' - " ' • • - ...... 

* • ■ : .; 

'on new me- • ' 1 . ' 

global gCastLibName ' 

--. Pub. . ' •'{' ' \ • • '■; ' • ;.; ' ' . 

, set CastLibName = gCas t L ibName . ' • 

set myHandlers = • -0 - ' \ • *• 

set myHandlers = GetMyHandlers (me)' ■- / 

■ * * - • 

leturnme , • 

end • '. : . ..• 



on xxt— > --Private Handlers 
i'm a separator 

end 



on GetMyHandlers me •'. 
. - reurns l ist of handlers to property Variable . 
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put value (word 2 of string (me) ) into whichCast 
put the scripttext of member whichCast into text 

put the number of. lines in text into seriptLines 
Put whichCast - handlers "& return into Handlers 

■ . ' ■: .- ' • -• • •• . 

repeat, with x - 1 to seriptLines v> : 
if word 1 : of line x of text = "on* then 

put line x of text into. handlerName . ., -\- 
delete word 1 of handlername 
put . handlerriame & return after handlers 
end if . , r • ; ' 

end repeat • ; . . r ; - 

return handlers : ? 

'end ■ ■ • [\ 



on xxx-- -----Testing Handlers-------—".; 

. i ■ m a separator 

• nothing- /■ ' .• ' " 

end 



on showHandlers me,.. 
-- Testing 

■ puts list of handlers in message window, 
put myHandlers r" ■ ■ , 

end ■■ ■ • -•■..*, 



on showProps me ':■ . : - ' " \ . 

.--testing •" . !• ■ 

— puts list of properties and their current values in message window 
set PropNum count (me) — '• "' 

' repeat i -with x - 1 to PropNum • */" . 

set prop - 0 . V - . - 

set' this Pr bp getpropat (nie, x) .' ' , 

; if this Prop -.# my Handlers, then next repeat ; \ 1 . 

put (string {getpropat (me, x|) j = getaProp (me, this Prop) into prop 
■ '.. ; put prop • . . ; \\ : . • , ..... . - - r . • 

• end repeat : " . - '• ■ - . \ : 

end - . 



i. * 
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Movie Script4> J DataViewPrefsMahager 



Property ancestor, 



on new me 
global 

. set ancestor = gRecordKeeper . 

. set pCastLibName = the castLibName of ancestor, 
return me ; " 

end - ••' : - . ■" • • ;'■ \ ; 



■-I 



on getDateFormat me . ! 
•' v- returns . 0, 1, or 2 which is stored in line 1 of 

dataView Prefs cast. If cast not there it makes on 
and returns. 0 to start, as a default; 
1 --. 0' means MM/DD/YY : > . ' ; : . \ ' , 

1 means DD/MM/YY : x * . ' ' ;• ' 

2 means YY/MM/DD " • V- ' \ ; -/ 
openrecords me ' '* : 

■if the number of member "dataViewPref s* of castLib pCastLibName = -1 then 

■.->-• . . •* *■■ • • ' ■* 

no prefs so make new one . . 

new # field,' member 5 of castLib pCastLibName ■ ' : ; 

put 0 into line 1 of field 5 of 'castLib pCastLibName ! 
set the name of member 5 of castLib pCastLibName = "DataViewPref s ".' 
set pDateFormat = 0 ; , . ' t * • V 

• saveRecords me . . . •> • / ; ' ' * ■* \ 

........... , . . , . . . . . . 

CloseRecords me,- ' " '.. .. { - 

return 0 

set pDateFormat = line i of- field pataViewPrefs " of castLib pCastLibName/ 
closeRecords me • ' 

. return pDateFormat . 1 ^ .' } 

■" end if _ ' / .. : . " - ,'■ ' . 

end- ' • . '■■ - . . • ' -. • 



Score Scripts 



on ex i t Frame ' ; 
go'- to the frame , 

end 
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Parent Script6:recordpisplay ■-. ' • / : 

* , * • . t- ' ' * * 

this object is designed to - take the data from the" records, est* cast and format and 
--display that data on the screen :\ : 

property CastLibName, rnyHandlers, ancestor . ; 

i* * , t * - "fc - ■ - ■ ' 

on. x--. Public Handlers ' , • 

-r I'm a separator ' * • • • _ ^ • 

end • . ■ . ■ '- . . '• : * 

" ■ .. 1 . ■ '-"«■- • - • .-.■•» 

on : new. me ■■ t . ' [ - *\ . ; ; 

global gRecordKeeper •' . " " * . ' 

if objectP (gRecordKeeper); then ; . - ' . 

( set ancestor to/ gRecordKeeper • . ' • ; ' 

else . '- " ; ' .. ■' " ■ . ' . ■■: '• 

. . alert "Be sure, to create recordKeeper .object before creating recordDisplay object" 
'' 'abort \ . 'X/-' : '■• '"' " ; V T '- . . . ' / 

• end if : . " "' •'. ;• . ' .." .... - : : 
set castLifcMame = 'records .est" / 

, set , myHandlers = 0 < . -• . . . , : . 7 ■ ... - 

set .myHandlers = GetMyHandlers (me) .'. '•■ : • , 

■ * * f' ■ , . ".■....»•• 

• return me . « ■-' ; ; '•' . 

end '-. : • ' ' ■ - v ' ■■■ ' . 



on t xx ^ ------Private Hand 1 e r s - - - - - v - - - - - 

. i'nra separator 

end"- 1 : 



on Lretr^y Handlers me . .;' : " ■*• ■• . • 

Pr i v . -• v - ■ ■■ V -': * . ; \ " • 
* * - ■ •• » • . . • „ 

• --'.reurns. list - of handlers to property variable 
put value (word 2 of string (me) ) into v/hichCast 
put the script text of. member whichCast into text 

put the number of lines . in text into scriptLines 
Put -jvrfiichCast' £ct "handlers"^ • return into Handlers 

i , t ...... . ■ . . , 

- repeat -vath x ■= 1 to /scriptLines . 

if word 1 of line x of text"" = "on"' then. . . 

put. line x of text into handlerName . ; ... 

. delete word 1; of ; handle rname- ■ ■ < 

put handlemame St.; return after handlers. 
end v i f . ; 

end repeat 

return handlers. . - .-' - v ' 

•end ," . ;: ■■ . 

on xxx---- ---Testing Handlers-- - '. ; 

- - i 'm a separator / ■ ; , . . 

nothing ' 

end . : * . 



on showHandlers me ■ ;•- . 

' " ~ Testing - 

• --.puts list of handlers in message window' 
put myHandlers 

end •. ■'• 
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on showProps me 

testing . \( ■ - 

— puts list of properties and their current values in message window 
set PropNum = count (me) 
repeat with x = 1 to PropNum • 

set prop = .0 
^ set this Prop - getpropat (me , x) 

if this Prop = tmyHandlers then next repeat 

put (string (getpropat (me, x) = getaPr op (me . this Prop) into prop ;. 

' put prop ; • ; .■ • ' ' :.. . 

end repeat . 1 

end : 

Score Scrip(7 - r 

■ ■ . > - ■ - •. - 

on exitFrame : • ■; 

pause • ; • , • . 

end ' ' A " - , . ■ 

- . ' , • '•• . . ■ ■ t 



Mcvie Scripts ; • ; 

i ! t 

» ( , - ■ - -. • 

on PurgeRecords ... . . ; '* 

. •" .testing ■. ■ .■ ; - .' ■ • ." / 

-r- use to clean out all records:,- only called during authoring 
-- use carefully, there is no undo! ! -:' . ' ■ ~.> ^ 

global gCastLibName ■ 

if hot (the optionDown ) then. - ■ 

alert. "Are you sure you Want to empty all records? This cannot be 

. undone ' "^return£creturn& "To proceed, issue this command' while holding down the option 

key. " ' .' " ' • ; .v .' : , . ' - 

. - . ■ ■■ • ■ ,• . • 

- exit .- - - i- ■; 

end if - . •; 

if the opt iondown , then . , • ;• \ 

. bpen records* me ; - ■ -. 

repeat with- x = 1 to 2 

put " " into field x of castLi:: gCastLibName 
end repeat - .. 
repeat with x = 11 to the number of members of. castLib gCastLibName 

erase member x . of castLib gCastLibName . . ' \ 

end repeat :' ' ( ■■ . \ r" 

saveRecords me ! ' . 

closeRecords me .,. ' . ' ' ■ < 

put "Records .Purged" 

end if - -/ . - -": ■ 

end • . ' 
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Score Script9 

on exit Frame ' ' 

global goodCD, j imx, grecordkeeper, trycdagain 

— if the machineType <> 256 then •' 

set the colorDepth = 8 > . 

set the searchCurrentFolder to true 

put getNthFiieNameinFolder ( "CCI :Datatest :." , i) into x 
if x = -02. Cst v or x = "02.*Cxt" then 

put getNameNumber (grecordkeeper) into serial 
. if serial <>"" then ■ 

— go to movie - CCI : Da ta tes t : DATATEST " 

exit r y- ;" 

' . else > 
. go to movie "CCI : pa taTest: License" 

" exit ' 

-r " end if .• • 

■ , •. • ■ 

else , •' . . ' ■ • ■ • * • • o * " v .. 

alert "Please Insert the Earobics PRO PLUS CD" 

3. t ... ....... - - - ' i ' ' 

. if trycdagain < 2 then V. *. •../"' 

set trycdagain = trycdagain +, 1 ■ 
go to the frame / ; 

-r ' else 

; halt . • , : _ ■ ■ ;•, 

. end if- . . .. ' .' : 

. end if- , ' ■ . 1 " 

else : . , ' * - ' - • • 
\ set cdList - ... • ' 

list ( "cr , "d" , "e" . ."- f " . "g", "h" . "i", " j." "k" ,/* 1" > "m* , "n" ,:"o" . *pr 
-x- , "y" , "2" )' • , '•" , ; • •'• • ,. \ - 

repeat with DriveNurn in cdlist 

put DriveNurn & " : \DataTest\" inco TryThis . - 
*■ put getNthFiieNameinFolder (TryThis. 1) into x 

if x = "02 Cst" o ( 'r x = "02 .Cxi " . then ■ 
' set goodCD = True 

\ L put getNameNumber (grecordkeeper } into serial 
. . if serial <> .V then, 
-- ; go to movie DriveNurn k " : \ Da taTestV DATATEST" 

>? " s • exit • ■ v . • " ' \ ■ , : \ ' - > . ' 
• ' e lse . : 

go to movie DriveNurn h * : \ Da taTest\ License" 
exit ■ v . v 

'end if ,-' 

■ end if - • •' . * 

' end repeat . - 

i* ■ ' - - " • - 

if GoodCD = False then ' . 

alert "Please Insert the Earobics PRO PLUS. CD" 
if trycdagain < 2 then 

set trycdagain .= trycdagain t 1 
go to the frame 
' else 

-,- halt - r ■• ... : • 

end if • * 

end if • ■ *; - 

■ ....... 
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• end if '.. ' . : / ; . ■ \- , 

go to movie " earobicsv2 : PataTes t : DataTest " \, 
go to movie * cciOG: DataTest : License* ; 
' -.- * go to the frame 

end •. ■ . ' ' : ' 1 

i • .v. • ■■ t- . .■■■..«<■.■■.■ 
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Movie Script1:StartMovieSGript V / 

*■ ' ■■ ; ' ■ ' ■ ' •'. ■ ' ■ ' . ' ' • ■ . - • r ir 

• ■"■ "*.'■' \ . * ' - • ■ * . * * 

— version as of 473/97 . ' .' .■ \ 

• ; , ' ' ' . , ■ » ,. ' . - " . " ' 

on startMovie . - ' "'..*'•' . . ;. 

global gMenuMaker, gRecordDisplay,. gGaineList, gRTFieldList, gSessioriNum, 
gBalloonFields , gTheFont, gEgg2ob, gBllnOb, gDataViewPre.f sMan ■ '" ' , 

global gCatConFields/gNextButton, gPrevButton, gMoreButtoni/OC ; 

global gMoreButton, gDataPrintButton, j in^ichGa^, j ijr^ichUser / gGamesViewedList 
/set the itemDelimiter = v, ; ' ■ 1 ' ■[ . . ■ ' 

puppetsound 1,0 - 
puppet sound 2,0. 4 " .■■ 

cursor 4 , ; ( ; . " .., '• 

initDataFieldLists * . \. * 

set gSessioriNum = 1 '•.'••> ' [. _. -' V - 

'. ••• . • . • . . ' . . : ' . \ ' >/ . . , .. 

set gMenuMaker - 0 . ;.. - t • J/ ' '. 

set gMenuMaker = new (script :"MenuMaker") ; 

• . . • , 

' , -* " * ' ' * ' '„ -•••«■ ■ 

set gRecordDisplay = 0 ;;• " 

set gRecordDisplay = new ( script "NewrecordDi splay " ) • 

set gDataViewPref sMan =0 - ' ' 

set gDataViewPref sMan = new ( script . "da taViewPref sManager" ) 1 ; ' 

if the.maGhineType = 256 then ; : • ' ' .' 

. . : . set gTheFont = "arial" - " '-. .'' .;. : ; - " - • " : ' 

^ else . {' /.'v., ;> ."/ V.. .\ V ' ' 

set- gTheFont = ."helvetica" ' , : \ - ; • '. /• . . 

end if : . , ' ' •. . • •• ■ ■ : ■ * : 

•InitMenuFields - / •• ' . _ ^ ' - . 

set gGameList = [ ] •' ■ ; ' ' . .. ; 

repeat with x = 1 to the number of lines in field "gameList " ; , 
4 set game = line x of field "gameList" . \' - 

'if game = " " then exit repeat . < • ' - . 

append gGameList , . game - * , % , •", " " - f 

end : repeat J . •;' ... • . *' - ' : * '■ ' 

set gNextButton - 25 sprite of "LeftArrow" \ . / v ; ,\, " ' 

set gPrevButton =' 27 sprite of^ "RightArrow" ' . -* ' : ,;. 

set.gMoreButton = 28 "morelData " button sprite j * ' 

set gDataPrintButton =29 sprite of dataPrint button 

set gMoreButtonLoc = point( 182 , 467 ) location of "moreData" button when needed on v 
stage _ . • • ~" ~ 

setFieldRects ... \ - ; ' \. 

set gGamesViewedList =[) : ; / • ".. 

set jirnWhichGame =••""■' v- >- ... ■> ' . 

set jimWhichUser = >"■" • ' ; * •"■ ' 

set -gEgg2ob = new (script "Egg2FieldMemberNums" ) 

set gBllhOb = new, ( script . "Ba 1 loonFiel dMemberNums " ) : , v 
register (xtra print oma t ic " , " POMX153.-50J- 02580 •) 
, put empty before line 1 of field "IntroText" :: r 
cursor -1, • • . . • 

end ... , >■ . . - ■ ; / ' _ . _ , . ' : • . ■ 

on. mitDataFielpjL,ists ' • , . [ . •'" ' , \ ■ • • ' 

global gRTFieldList,, gBal lopnf ields;, gCatConFi elds , . gEggTaskl.Fi elds .. gEggTask2Fields 
global gRapTapFields. gCoallFields , gCoal2Fields ". ' • 

■ " . • „••••••'• " • -r- .... . ■ . " ■ : •■ 

set gRTFieldList - ( "DataDate" , "RT Task ( 1 ) ' ,. "RT InSetOf . " RT BgNoisel r , " RT Seorel " , "R^ 

' ■ . • .-. ' '• ■. ■ v.; ' ; ' "■: ' 
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Task (2 V -Rt resporiseChoice ■ , "RT BgNoise2 -rt . Score2 * ] 

- ■ 1 ■ • . ■ ; - . - ■ ■ ' 

set gBal loon fields. = ["DataDate", "BalloonTask\ w BalloonI^hamber- , "BalloonStimType" , 
"BalloonVisDi splay" , ' BalloonNoise" , "BalloonScore* ] 

si ■ ■ * ■ • ■ ■ 

■ - ■ ■ ■ ■ ■ . * ^ • 

set gCatConFields = [ "DataDate" , "CatConTask" , "GatConUnits" f . "CatCon Interval " ; 

rCatConTarget" . "Ca^ConFoils " , "CatConScore" ] • ; . T : :', ■ • - . 

... . . ' . *» * * ♦ * > " . 

. •*»■'. 

set gEg'gTasklFields = '; , " •.. v . 

[ "DataDate" , "EggTaskl " , "EggVowels - # " Egg IDlff Score "., "EgglSameScore" ] 

set gEggTask2 Fields = [ "DataDate" /EggTask2 " , "EggDuration" , "EggAmplif ication" , 
"EggSteps" , "Egg2Diff Score" , "EgglSameSeore" ] . \ 

• set gRapTapFi elds = ['-DataDate*, "RapTapTaskl" , "RapTaplUnits" , "RapTapl Stimulus 

"RapTapl Interval " . "RapTaplFeedBack" , -RapTapl Score" , " RapTapTask2 " , 
"RapTap2Uriits" ,." RapTap2 Stimulus " , " RapTap2FeedBack" , "RapTap2 Score" ] 

' • • \ - . • "• . •*.•■.. • I. " - - ; 

set 'gRapTapFields = *' ( "DataDate" :'"Date: " , "RapTapTaskl ": "Task ( 1 ):" , ," . . . 

"RapTaplUnits" ; "Units: r , " RapTaplS t imu lus " : "Stimuli: " RapTapl Interval " : " interval : *, 
" RapTaplFeedBack " : " Feedback : " ,. " RapTaplScore " : "Cuml. Score: " , "RapTapTaskl" : "Task (2)-: " 
"RapTap2 Units" : "Units : " . " RapTap2St imu lus ": "Stimulus ':" ,"RapTap2FeedBack": ; " Auditory 
Feedback: " , " R'apTap2 Score " : "Cuml. Score: " ] 

set gCoallFields =• [ "DataDate" /"GoalTaskl" t "CpallGon text" , "CoallScorer ] 
set gGoal2Fields = [ "DataDate" , "CoaITask2 " . "Coal2TargPho," Coal 2 Score * J 

end ■ • " • '• • - ; ■"' . ' .. 



on stopMovie ' ': . t .. i. - ' , " : ' 

global gVoid. ; gMenuMaker. gRecordDi splay f ; gGameList / gRTFieldList , gSessionNum, • _ 

gTheFont ■• . • ' . • '■ ": "... ~ . * . - : ' ' _ 

global gWhichUser , gWhichGame, gCatConFields, gBal loonFields , gNextButton, gPrevButton 

gNextStart. gMoreButtonLoc , gRapTapKey^ords. •/ ,\ ; . — 

global gMoreButton. gSess ionList , gEggTasklFields , gEggTask2Fields v gCoal 1 Fields . 

gGoal2Fields ' • • ., •' • . ' . - \ .• . * 

global gRapTapFields . gGamesViewedlast gOverRunSession , gNumPages , gSpr i tesOnLi st 
global gDataViewPrefsMan. gEgg2ob. gBllnOb. gPrintMan. gDataPr intBut ton 

■ * ■ **'.*"■ ■ * 

. * . . ; • . • • . • . ■ . . ; • 

' • •' • " . " : •" •'.*'" ' • ■ i i • • ' 

" set- gGamesV i ewedL i s t . - gVpid . , '- ' , ..... : : 

set gSpritesOnList .= (] ■ ; *' ' > " " f 

i f the • runmode <> "author" then 'v. • . -" • ' 

set gDataViewPrersMan •= gVoid . . 
set gMenuMaker = gVo id .' ' ' ' ■ . ■ 

set. gRecordDi splay /= gVo id ; . . * ' , . k 

' : ' set gGameList '■=? gVoi.d ;. *. • 

• . . .set gRTFieldList =' gVoic3 . - ■ " ' ' * . 
• ' ' set gSessi onNum p. gVoid , : ■ ' ■ . ' .' ■ / ' * • ' ' . 

set gWhichUser = g ,; oid ■ : ', '. - • •'. ' , . - ... - 

set gWhiehGame '= gVcid ■ ' "„ ' - .' 

set gBalloonFields - gVoid ..' ; ; - 

set gGatConFields = gVoid : . - ' ' - ' ; 

set gNextButton .= gVoid ' • , - ' : 

set gPrevButton = gVoid -. 
set gMoreButtonLoc .= qVoid , ' 

; set gDataRr intBut ton. ^ gVoid • . '■ . 
1 t set gnextStart = gVpid .; • -.. • • 

set gMoreButton - gvpid . .-' '" ' 

set gSess ionList = gVoid 
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• '. - ' . - • -f 

set gEggTasklFields = gVoid 
set gEggTask2Fieids = gVoid 

set gRapTapFi e Ids = gVoid ■ 
• set. grCoallFields = gVoid 
v set gCoal2Fields - gVoid 

.set gGamesViewedList = gVoid 
set gTheFont - gVoid 
set gEgg2ob = gVoid 
set gBllnOb = gVoid 

set gOverRunSession - gVoid , * 

set gNumPages = gVoid 

set gPageNum = gVoid ; . 
set gRapTapKeyWords = . gVoid 
set gPrintMan = gVoid 
- end if 

* . ■ : • * - >- - , ■ ■ ■ - - 

end •• .-■*•'• 

global gWhichGame, gsessionNum . " 

cursor 4 — for quicker cursor change during data reads 

puppetSprite 39, false ; ; / ; 

puppetSprite 40, false , * ' . ; 

puppetSprite 41, false 

ini tDataFrame gWhichGarne ~ . - 

• set whichFrame = gwhichGame&& " Data* 
set gSessionNum =1 
spriteListOf f :.. 

go to frame whichFrame • : * 

ini tDataFrame gWhichGarne . ■: • - 

end . \ \- > - 1 * t . 




APPENDIX A-247 



j .... . " • 

i 



Parent Script2:menuMaker V 

> r * , * ■ & * * 

- ■* . • * 1 z v * 

property BlackDot • \ ' 

on new roe _ 

set BlackDot .= the memberNum of member "blackDot" 
return me 

• end- " % y ; \ ■ ~ ' - . . 

on showmenu me, menufield, where * : 

set the member of sprite 40 to menufield . . 

put the height of member menufield into fH . 
put the text height of member menufield into tH 

set the height of sprite 39 to the height of member menufield - tH 
set the width of sprite 39 to the width of member menufield 
set the loo of sprite 40 to where 
set the loc of sprite 39 to where 
updates t age 

put the top of sprite 40 into V 

set the width of sprite 41 to (the width of member menufield) ' 
set the' height of sprite 41^ to tH ' .-■ 

put (the locH of sprite 40) into hLoc . ; 
repeat while stillDown() 

if mouseCast ( ) = menufield. or mousecast ( ) =■ BlackDot then 
put (mouseVO V) - ( (mouseVO - V) mod tH ) into vLoC 
set the loc .of sprite 41 to/ point (hLoc, constraint (39, V + vLoc 
upda test age . t - ... 

. " else •-. - • . ', ' . '. ; ■ • ; " ' , ' : ' 

set the locH of sprite 41 to 10000." • 
updatestage 'V , - . ; 

end if , . . . ' , 

end repeat ■"; * " . ■' f 

set the locH of sprite 41 to 10000 1 
updatestage • . ,. 

if mouseCast O <> menufield then -- didn't select any thin* t 
set the locH.cf spiite-40 to 10000 
set- the locH of sprite 39 to 10000 ; -. . . 

updatestage ■ • , ' ' 

* . return ^Nothing, 

.end if . " • 

. • . ■ ■■ • • • • . i ■ - 

• • . • ■ ■ * ■ ■ ' - - 1 ■ ■ ■ ' ■ 
, . . • . : 

put the mouseLine into theLine - ■• 

wait 2 

■ 1 - . ■ ■ ; 

1 . • . . . ■* . * 

set the loc of sprite 41 .to point ( hLoc . const rainV (39, V • • vLoc ) ) 
updatestage , 

wait 2 ; .-■ - ' • • . - . : ' 

repeat with x = 1 to 2, * ■ . . . 

set the locH of sprite 41 to 10000 ' [''■''' 

updatestage /' - . 
! wait 2 • . ■ - 

set the loc of sprite 41. to point (hLoc. const rainy 29, "/ ♦ vLo-: ) 
updatestage 

wait 2 . . ■ ■ ■ 

,^.r.-J repeal ' .' - : ' < .. . " . ... /' "■ ■ • 

set. the iocH >^t sprite 4.1 to 10000. 
wai t 7. ' 

• updatestage ' - - * : . .. 1 

• ■ . ' • ■ " r . ' : - ■ 4 

i - - 
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■ - . I 

the mouseLine into theLine 
set the locH of sprite 40 to £6.000 
s.e't the locH of sprite 39 to 10000 



u 

return theLine 
end 



r- sample .castScript for menuMember 



" --on. mouseDown 

global MenuMaker -, z '.. . ; 

set the ink of sprite 4 to 2 
~-v updates tage 

set theloc to point (the left of sprite 4, the bottom of sprite 4) 
showMenu meriumaker, 4 , theLoc 1 
set the ink of sprite 4 to 0 

--end 



i ■ 



. .* .■. j i 
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Parent Seript3:NewrecordOisplay 



- -,2/3/9,8 ' ' . ' ''V.\ »V :/ ' •' : : . 

- - chanood way lists are broken up 'for two levels 



A/1/91 . , • . ' ; . \ ' . * . 

-- Changed reporting so : list of sessions ,is generated last to first not first to last 

•■■ -"*.*., , * ■ • * ', 

--this object is designed to « take the data from' the * records, est - cast arid format and 
-- display that data on the screen , * ' ' - 

property CastLibNajTie/ rnyHandlers. ancestor . lastRecord, las (Data-List ' . " /. 

«■ • . ' - ■ ■ ■'" ' ■ - - . 

■ . * ... ■ ■ • 

: ! - . ' . .' *. ... " j 

on x — ----Public Handlers, -------r . . . v. - ^v , 

. -- I'm a separator . ^ x - \ . \ 

end ' '• • . „ ■; . .. . , : • . ■' . 



oh new- me \ . ... * ./. 

global gRecordKeeper . - 

if pbjectP (gRecordKeeper j then ■ "■ : ' - 

set ancestor to gRecordKeeper ' . s 

: e ^se. ' . •• ■ - \ . .... ... • - • ' ;"; -. . '' ~ . ' • 

alert "Be sure to create recordKeeper object before creating recordDisplay object" 
abort ' - ,:\ " ; \ ; .*• _ " . v • \". . " f . . ' * 

set castLibName = "records .est " 

set myHandlers = 0 . ; - ' • 4 

set myHandlers = GetMyHandlers (me) \ : 

return me ■ , :'' \. ' y '■ 

end . -v. - ; • 

on GetData me, whichUser, WhichGame , f orPrintOut-- function 

. Pub. ■• •■ ' v . - •; • ■ - • . ;" ; 

This handler when given a userName (from the list in ' 
member 1 of castLib "records .est " and either a game name or 
integer game number from. 1 to. 7 opens the record for that 
•-. — user and that game and reads that data into a variable, 
--it then loops through that text, line by line/ and creates 

a property list with property "date" (from the session dates 
--stored in record) associated with another propList as it s 
-- value. This second list contains the levels for that date's session 
— and each level's corresponding score converted to a string 

percentage. That whole list 1 is then returned to the calling handler * 
global gGameList . * ; ~ [ 

- if stringP (WhichGame) then ' 1 

set gameNum =, get one (gGameList , whichGame) 

if gameNum = 0 then .t ./ 

alert "This game is not in the Game List . Check your spelling and your Linger . 
- at>ort " ... • • ":' '• • ■•■ . • • . 

- • end if • • . . . - .. ...... 

' 'end if " .' .' , ' ; . . . ,' 

if integerP( whiehGame) then - - - - 

. if whichGame<l or whichgame>7 then ■ 

alert "Expecting an integer f rom * 1 to 7. Check your Lingo. " ' 
abort • : -- 

jend if • . . , ' . ; ■ • - 

set gameNum =! ? whiehGame ,\ , - ' 

end if . ■ - • ' ' " ; ' ' • 



j » 
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-.- after error checking we- open, the records and read it into a -variable 

. * ■ ■ i . ' * - * ■ . . . ' 

set thisRecord - whichUser U gameNum " 
H-f thisRecord last Record and voidP( for Printout ) then- -2/ 3/ 

-.- if torP'r int'Out -we. need to re-order some of the data! . 

.return lastDataList ' .; ; 

•else - v. . ; . . v . • .• • • ■ ' ' . , ■ ; v ' ... ' 

openRecords me' ; 

set- record = field thisrecord of castLib CastLibNaine T 
v closeRecords me. ' : .'; • . - 

'i.t i , 

1 • ' ' ■ 

' , .. ' .' ' * * ,i 

set DataList =•(:].-- init' lists for line by line" 
' set Dates ■= { ); '"• • . • ' / 

set Level sAndScores =[:] ' 



-set numLines - the number of lines of record 
• repeat with x .= 3- to numlines. ■ ' • ■' 

repeat with x = numlines down to 3 changed 4/7/97 : ' 
,; set thisLine = line x of record ■ :. ':? 

v if , thisLine = " then next repeat check for empty lines (spacers) *V 
. • put. item 1 of thisLine into Date get stored date 1' • 

if date <>: get last (dates! then 1 f : • v . : ". . ■ 

see if date is already in list "Dates" _ v 

if. so skip down to collecting levels and scores • 
..- -r . if hot then check if this is .first date encountered / 
if count (dates) > 0 then ' - 

-- if list already has items then we are hitting our second date 
-- so store the list ; of levels and scores ' (after sorting first) 
. we've been making and pair it with its date. 

if not skip this stuff and- just store the new date 
and init' the list for LevelsandScores ""- 
sort 1 eve 1 sAndScores * . ... 

. V-.addProp dataList, getLast (dates) ,. levelsAndScores 
end if : ';' - ■ . . • ' ..«- 1 . .. v . V ' 

-- store the date and init list- for levels and. scores /"- 
append dates, date 

set Level sAndScores = [,: ] : . ] • '\ 

■ end if -r ' ' . . " '.: y . ' •• •' • '• • ' . 

■'■ t- here we loop through the lines, figuring the percent s and ; - 
adding to the level sAndScores list [level : percent] . \ \: ' 

set Level = Value (item 2 of thisLine) 

■ ■ ' ...■■,»_> . , ... ■ . » 

. — 2/3/98 . ' . ■ ' "' ,• ' . '• ; v . { ■•■ ■ \ ." 

"•':•>-■'.. if count ( levelsAndScores) and GameNum = 6 then 

-- Here we need to check if user is in game. 6 ^and then check 
— ; if user played both tasks in one session - • 

- if so we break "that session into two sessions. ... 
set tempCount . - count (levelsAndScores) 
'- : if getPropAt (levelsAndScores, tempcount) > = 57 and level < = 56 then 



--4/7/97 



— we have a session with plays in both tasks of. the game so 
. split' off lower list and start 1 hew list .for upper part 
sort levelsAndScores' - * ... 

' \ addProp dataList, get Last (dates ) , levelsAndScores . 

. set LevelsAndScores ■■' = [: ] . V- ' ; t . , 

• • end- if ' ' ' ' . ; -1 ■ ' : ' - 

end* if . . • • . . ■ ' 
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set :JuxnRight = value { it.em .4 of thisLine) 

set '2^? lays ; = • value (item 3 .of- chisLine) - s ., • 

- set. score - -f loat {nuroRight;. / Float (numPlays)/ ' v> 

"-- set '."cere = integer { score* • . _ • . ' '• 

" '?:■:>'-- = rt r i:::: i score;) k; i * ;. •'" .•_>■ ■*. . ; v ■. ■ '. . 

' ^Hf/t rc-p .LevelsandScpres', level-,' score ^ -.- • / •'" ■;" 

' — - las' t in-.e; v:e need, to ado!- -'the:; last .1 1st /hereset , ;* 
so:t ' l-^vel s.-jidjcv-res " ■ .' ; *• • " ■ . ; « 

adcProp dataList, date. leveisAndScpres • . > " '.'--' . V. 

* - • ■ + 

if ga^eNum - c then hew way'^to break list appart ! ! \2. 3 /93) 
set dataList > convertList (dataList 7 57 f orPrmtOut) : 

end if •' • ' '. • : " ■ . . ■.. - ' \ ■ 

if voidP( f orPrihtOut ) then, --.new 2/3/ 98" * ' 
. :.. -.- don't save data to property if called 

.*. from- printout ' . •- 

- * set lastRecord =- thisRecord ;"'.*' " . : ■ . • • . 

. set lastpataList = dataList ' I • ■ * - 

end if • • ' ' • > , • .;• 

• - return dataList . . : /. , -. • " >. 
. end if - ■■. ■ .-■ * . • .« *• " '• • '' , : .-*' 

end -" ■ • ■ ' :"■ . * " . 

• . ' ,. • " : . ' ... .. - . - " -. 

on getEggBasketData me, whichUser, '"" for Printout 

Unl ike, the . other games egg, basket stores two kinds of data - - „• 
' --for each round, the number of ' plays 'and. number of right responses 
• .. - - when then two test sounds are the same and the numbers when the 

two test , sounds are different. Items 3 . and 4 on each line store the 
--• -different"! data and items 5. and 6 store the m same* data, 
set thisRecord = whichUser & 2 rv; ' , ■ ' ' ■ • , V " 

if thisRecord - lastRecord and voidP { f orPrintOut ) . then-.-2 :/3 /98 
if ipr Printout we: need, to re- order some of the data! 
'•return* last DataList*' 

; -• ■ ■ ... - * '. • • • . • 

' . elSe ; " ■ • ; . - . - 

* . , ..■»* ■ . . . - 

openRecords me -V % : " r" ' , • • ' 

' set- ".record = field this record of castLib CastLibName ; 
" \ clpseRecords .me - . . ' >. 1 V • 

i ■ ■ • * s . t . \ . . - 

* ' set DataList = (:] .-- init' lists . for line by 1 ine 'read through 

• ; - set Dates = [] . : :, , V; 

set Level sAndScores . = [:).' l( ' 

' ' ' - • ' .-: ••- • ' .-• ' \ .. . . . ,. • » - 

' set numLines =-' the number of lines of record • , 
repeat with x = 3 to numlines 
repeat with x ~ numlines. down to 3 changed 4/7/ 97 - ' 
set thisLine = line x of record • !' 

if thisLine = then : next repeat check for empty lines (spacers) 
put item 1 of thisLine into Date --.get stored date 
. if date <> getlast (dates) then 

--"see if date is already in list "Dates" 

-- if so skip down " to collecting levels and scores • .*', 

if not then check if this is first date encountered 
if count (dates) > G then 

'-- -if. list already has items, then we are hitting our second date 
.; . so store the list of levels and scores {after sorting first) 

we've been making and pair it with its date. 
, : ' ~- if , not skip this stuf f -and just store the new date • 
--and in it. the list, for Level sandSc ores 
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sort 1 eve 1 s AndScores . \ . 

addProp dataList, getLast (dates) /level sAndScores- 
end if 1 . ; •. 

---store the date and init . list for levels and scores : . 

append dates, date - ' .\ 

set Level sAndScores -[:) ... 

; * *",,"■ , . ■■ . . -•■ . -. • - 

end if ' ; . , ; ' 

— ' here we loop, through the lines, figuring the percent s and \ . 
.--adding to the level sAndSc ores list [level: [diff Percent , samePercent] ] 

** > 

set Level = Value (item 2 of thisLine) 

2/3/98 • . ■ ; . . ■ ' ' - 

if count (levels AndScores) then 

set tempCount = count ( levels AndScores ) 

if getPropAt (levelsAndScores, tempcqunt) >=31 and level <=30 then 
- 4/7/97 - • • • " • ' .. 

-- we have a session with plays in both tasks of the game so 
~ — -- split off lower list and start new list for upper part 

, r- . sort levels AndScores 

' <. addProp da t aLis t , getLast (dates) , levels AndScores 

, set Levels AndScores = [ ; ] 
-- " • end if -- <"~ • '.- 

A-' end if _ *. . ' ; ■ ",. * ' • '• . • > . ■ ' - 

set NumRightDif f •= value (item 4 of thisLine) 

set NumPlaysDif f. = value ( item 3 of thisLine) ,. " 

; if NumPlaysDif f. = 0 then " 
- ' set Diff Score = ,V-V" k " 

else . v ■ . - _ ... 

set Diff score = F,l oat (NumRightDif f) /Float {NumP lays Diff) 
set Diffscore =^ integer (Diff score* 100) 1 
■ set Diffscore = string (Diffscore) &"%" ' • • 

end' if . : V 

set NumRightSame '= value (item 6 of thisLine)- 
set NumP lays Same = value (item 5 of thisLine) ■ 
if NumP lays Same = 0 then 

set SameScpre = * — " • • .'[ . 

■ else : ; :' ' . . ■ ■ , . " ' 

set SameScore = Float (NumRightSame) /Float (NumP lays Same) 

set SameScore = integer (SameScore* 100 ) 

set SameScore = string (SameScore) &•% " 
end if . : V ' - 

set scores = [ ] 
..append scores Diff Score 
append scores SameScore : > 

addProp LevelsandScores, level, scores 

end repeat 1 ' 

-- last time we. need to add the last list here 

sort levels AndScores 

- - - < ♦ , «. . 

addProp dataList, date, levels AndScores 

set dataList = convertList (dataList, 31," forPrintOut) — new 2/3/98 
if voidP (for Printout ) then new 2/3/98 , 
•. -.- don't save data to property if called 

- - from printout ' f ■ 

set lastRecord = thisRecord 

set LastDataList = dataList" 
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end if 

return dataList 
end if 
end 



end 

on GetHighLevel" me , whichUser , whichGame - - { function ) 

Pub. ' • • . ; ■; . * '» v ■ ; ... ■ , • ■ : • * ' . • 

global gGameList 

if string? (WhichGame) then 

set gameNum = getone (gGameList , whichGame) ; • ; 
if gameNum = 0 then. . ^ f - 

aler-t "This game is not in the Game List. Check your spelling and. your Ling 

abort 

end if . 

■ - . i ..." • * . ■ ■ 

.end if ". • . '/ 

if integer P (whichGame) then " \ - 4 , 

if whichGame<l or whichgame>7 then * ; 

alert "Expecting an integer from 1 to 1 . Check your Lingo . " ' 
abort • / ■ ; 

end if ■•• '■ - ■ . ., ■ v \- 

set gameNum = whichGame 

.end if . /■ ., . *' . • ■ . • ', ' • - ■ ' _ 

set this Record = whichUser &whichGame 
openreeords me 

put item 3 of line 1 of field thisRecord of castLib castLibName into level 
if level .= " " then set level = 1 . . ' ,. ; 

put "Highest level of "&&whichUserk&"on game p &twhichGame&& " is level 
return' level . 

closerecords me ■ • 

end ; ' . • . ' 



A 

i* 

on XX-- — ---Private Handlers--- -------- 

■. i'm a separator 

end '- ' : V 'v ' ; .. . 

on GetMyHandlers me ; 

.Priv. • + -' . . ■ . . ' • ' : • 

reurns list of handlers to property variable 
put value (word 2 of string (me) ) into whichCast 
put the script text of member whichCast into text ■■ 

put the number of lines in text into script Lines 
Put whichCast "handlers "it return into Handlers 

repeat with x =1 to script-Lines 

if word i of line x of text = "on" then. 

put line x of text into handlerName 

delete word 1 of handlername 

put handlername & return after handlers 

end if ' . '. ' 

end repeat • -- '. * .'. ; r • 

■return handlers ■ 

■end . ■ - • • 
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on xxx- '-----Testing Handlers-- 
--. r'm a separator-' ' 

\ s^thi nc] > "■ , ■: • -.. 

fend'-''. • 



on showHandlers. me ' ; 
-.- Testing," . 

- - puts list of handlers in message window 
put myHandlers. - " * ; 

end ' ■" -■:'■•' .' ' - 1 



on showProps me •..-.'!' ■ . ' : 

testing-/. ' '. , _ ':-■-.'■'< • V'-' r ; 

-- puts list of properties' and. their current values in message window 
set PropNunT = count (me) - ,..•' ; ; - 

repeat with x = 1 to PropNum >' , ■■' • • ' "". 

set prop = 0; V ' ;■ •"' * 

set thisProp: = getpropat (me/ x) '\ ■ '".■/ "' \; ' 

if thisProp. = #myHandlers then next repeat: • 
put (string (getpropat (me, xl) = .getaprpj>(me , thisProp) ", into prop 
put prop' •. ' '■ \' . ", ';. • ' ' ' • ' 

end repeat ' \ ' . . - ,••/ ' \ r - \ ' / 

end • ' - - . •• ; " v - • - \ ' ' , - >" 



Score Script4 



1 »•*■ ■ 



Movie Scripts 



on getRapTapRects 
1 global gRapTapFields ; /. . " 

put " "* into field ."temPRects* 

set y = count (gRapTapFields) '"'■." . / 

repeat with" x = 1 to y . . /■ > 

set this'f ield = getpropat (gRapTapFields ; x) ; ' 
. put /set the rect of member "^^Quoteficthisf ield&Quote&& ,, = 
the irect of member ,,this field s return after field "temPRects" 

end repeat' .« ■ " * . . 

end : - - ''."'. ... . - 
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Movie Script! 0 



■T • 



■i -■ -. . 



» J. 



* on Ini tMenuFields \ * - . 

global grecordpi splay, -gTheFont ; 
! set MenuFieldList | "Ur- -i ti.im» ■: st " "GAmeLi r;t r J' 
. put m " into field "userNameList . ■ , 

put getUserNajBGS (gRecordpisplay ) . into field, , *userNa^leList , •; ■ . * 

put field "userNameListx" into field "userNameList " — testing ; '• 
repeat with thisField. in -• menuf ieldList ' 1 " \ ' 

r set. .the font. -of field thisfield = gTheFont ' • • ' / ^ 1 

set; the textStyle of field ThisField = "Bold"- - . 

'■■ set, the textHeightvpf field thisField = 14' ' . .. , ; - 

set the border of member thisField = 1 . " j: 7 

set the . boxDropShadow of member ' thisField = ,1 ' ■ ■ .- 

end repeat-; ,v -. •, . : \" • • 

put the number of lines of f ield f userNameList " into numLines . , 

• • . * repeat with x - 1 to numlines I; - " ■ 

-rr put in a space at start of the name to make more readable , "*. 

remember to take it back . out ! ! , '■' • '* 

. put, " w & line x of field "userNameList " into line x of field "userNameList " 

if line x of field, "userNameList" = * •" then delete line x of field "userNameList" 
end repeat ■ . .- „ . : \ .'•// •;• ; , • 

end - •• ... , *• •• . * • • .. "• ' •' '• . 



i 



Score Script 1 1 



on exir.Frame ' . .. . - 

global j imWhichGame , j imWhichUser 

puppetSprite 39, true 
: puppetSprite 40, true 

puppetSprite 41, true 

set j imWhichGame = 

set j imWhichUser = "" 

cursor -1 . f ' 

end . ' ' 
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Score Script 12 



on exit Frame 

go . to t he f rame 

end 



Script of Cast Memberl 3 



on mouseUp A ■.. ' 

global gWhichGame, gsessionNum 
puppet Sprite 39, false: \ • 

puppet Sprite 40, false 
puppet Sprite 41, false 
initDataFrame gWhichGame 
set whichFrame = gwhichGame&& "Data- 
set gSessionNum == 1 . 
go to frame- whichFrame 

end ■'• ■ - 



Score Script14 



on ex it Frame . ..■ 

cursor -1 

checkDa taPr in tBu t ton 
go to the. frame 

end " * ■ . i. 



ft . * 



Score Script! 7* , 



on enterFrame 

MakeVisRapTapSprites -- special- case f rom RapTap task 2 
spritesonList [10, 11, 12, 13 , 15, 16, 17 , 18] 
puppetButtpnSprit.es true : • 

initRtFields , \\ 



end 



APPENDIX A-257 



Movie Script27 r • ... V -.' _ ■ * : - ' - f 

on -initD'ataFrame wH i chGame v 
• ci 1 oba 1 "gWh i chGamo . ql^/hichUser ; '. ■:. , . 

' put gWhi^hGnm* K;, MVta - Report T.ibl e*"- intrn- ( i ♦ • !• ! - «r*Ti t -le" .< , / .. . 

put:-" " into ti^ld "Specifics" , 5 :'■ 

sei the font style 'of field "Specifics" = ..".Plain" 

put gwhichUser into line 1 of-' field "Specifics" 4 ; 

put gWhichGame into line' 2 of field "Specifics" ; - • .: .. 

cursor -.4 ■ : - •■ • ■ " . y ■ ■ . 1 

case (gWhichGame) of • . V"- , 4 _i 

■" "Rhyme. Time" : put '"Rhyming/ Figiire -Ground Discrimination, Attention U Memory into 

line 3 of., field - Specifics" - . ]" . ' 

' : ■ '. '■ . ■• '. ■. . '■ . . ' ■ "■ ■"' '"" • ; ' ■ '■■ . ' J. ' - " .. ' . 

initRTFields .,• ' • ' • , , V , , • ;. 

'* /"Caterpillar Connection" : put "Auditory Synthesis, •Attention & Memory; Phonological . 

Awareness" into line 3" of field "Specifics" -. . /v' 1 . " ' ■ "'; 

• - initCatConFields \ ' ' \. . . ..• - . .' . ' • ' 

"Karloon's Balloons" : put "Auditory Memory, Figure -Ground Discrimination, 
Identification, " &RETURN&" Discrimination & Attention." into line -3 of field : " Specifics" 

initBalloonfields'. \ - e ' . ■ . t . , _ I " n 

' "Basket Full of Egg's".:, put "Auditory Discrimination, Attention & Memory into line 3 

of field, •Specifics" . ^ ' " 

» ■ • ■ • . ■ ■ • ..... 

-Rap- A- Tap-Tap", : put "Auditory Segmentation, Attention & Memory.; Phonological ; \ 

Awareness" into line 3 of field "Specifics" . " •> \: ' ; \- - r 

initRapTapFields ■ *\ : . v ■ ■ ^ • 

-«C C Coal Car": put "Phonological Awareness, Sound- Symbol Correspondence, Auditory 
Identification. Discrimination; Attention & Memory " into line 3 of field "Specifics" ' 

; . end case • . . , ' V :.. ' . ■ - ",' ' 1 

\- , . *■ * * . ■ * . . , 

' * ' * . ■ ' ' ■ * ." ' . - 

-- cursor -1 . ; , ■' \ ' ' . ' ■ ' • 

. end - '. .-' ". " ' •' • . ,■■ _ ■ r ■ 
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Movie Script42 '■ '■ / / *" 

on initRTFields empty rhyme time's data fields of all but first Line . 

global gRTFieldList, gfGamesViewedList , gTheFont 

if not qet One ( ejG^er.V LeweHLi st' ( .#RhymeTi me) then --'check if we've been here yet this 

session '/ . ... 

append gGamesyiewedList , #RhymeTime 

repeat with thisf ield in. gRTFieldList . ' '.• 

. set x = . the number of r lines of field thisField 
' set the font of field thisf ield .= gTheFont 
set the fontsize of field thisf ield = 12 

case (thisField) of . ... . . 

•DataDate" :Put "Date:" into text 
" "RT 'Task (1.) " : Put -Task (1) : " into text 
"RT Task(2)":Put "Task (2 ): V into text ' : 
"RT InSetOf * : Put "In .set of: * into text > 
"RT BgNoisel",: Put "Background Noise:" into text 
"RT BgNo ise2\; Put "Background Noise: " into text 
"RT responseChoice" : Put "Response Choices : ' into text 
"RT Scorel" :Put " Cuml ;. Score : " into text . ' 

" RT Score2 • : Pu t ." Cuml . Score: " into text " 
. * end case! ■ - ' ' ' ••' 

put text & return into field thisField « * . • 

set. the fontStyle of Line 1 of field thisf ield = "underline " 

delete Line 2 to x of f ield thisField ; 

put V "into line; 2 of field this field .'' " • ' • 

. setPlainStyle (2, thisField) .» / 

t . ; - • . . ♦ ■ . ■ 

*■" • end repeat 

else . • •■ ... . ■ ■■■ 

repeat with this field in gRTFieldList . 

if Line 2 of field thisField =""'_.* then exit repeat • ' • / 
set x = the number of lines of field thisField 
delete Line 2 to x of field thisField 
put " " into line 2 o.f field- 'this field 
setPlainStyle (2, thisField) : . 

end repeat V- 
end if , . * .. , " ;* ' . 

if label (0) = 'label { "Rhyme Time Data" ) then . ' • . 

. . set Lower FieldSpri tes = [15.16,1.7,18] • 
repeat with x. in lowerFieldSprites 

set the loc. of sprite x to point (1000, i000) 
end repeat T . 
, updatestage 

end if . ' - - . ', 

. ■ '■_'». ' ■ ' 

,end • - - . ' ' 
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Movie Script43:spriteServices 

on spritesOnList Spritelist \. 

--Takes a LIST of non-consecutive": (or consecutive) channels 
"■'.-r- and puppets them. Must be passed as a list [] 
--turns global list gSpritesOnList off first and 
-- then turns on spritelist and makes 1 'Sprit eList 
-- into gSpritesOnList , 
global .gSPritesOnList , . . . - 

if voidP (gSPritesOnList) then set gSPritesOnList = [] . 

if count (gSpritesOnList) > 0 , then ; 

repeat with thisSprite in gSpritesOnList 

puppetsprite (thisSprite, false) 
end repeat 

repeat" with thisSprite in '• spriteList 

puppetsprite thisSprite, true \ 
, end repeat ."" 
set gSpritesOnlist == spritelist 
else 

repeat with thisSprite in spriteList 

puppetsprite thisSprite, true 
end repeat 

set gSpritesOnlist = spritelist 

end if . .. A . ' . • 

'end . v - ' ':' 

on spriteListOf f 

' turns off all sprites on Current gSpr i tesonLi s t 
and re- initializes that, global 
global gSpritesOnList 
if voidP( gSpritesOnList) then 
set gSpritesOnList = [ ] 
exit . \ , .. , ; 

end if 

repeat with thisSprite in gSpri tesonLi st 

r ; puppetsprite thisSprite, false , 

end repeat \ , 

set gSpritesOnList = [] '/ 

end- v '- : ■ : ' . -• 

; " . >■ • ... '.' ' 

1 - - t ' * *- t 

on spriteson FirstSprite, LastSprite 

■ turns on sprites in consecutive channels from. 
--/FirstSprite to LastSprite . 
global gSpritesOnList 
if count (gSpritesOnList) > 0 then' 

repeat with thisSprite in gSpritesOnList 

puppetsprite (thisSprite, false) 
end repeat 

set gSpritesOnList = [] V" . " 

repeat with N = FirstSprite to LastSprite. 
■'• puppetsprite N, true 
add gSpfitesonList, N 
'end' repeat ■■ v - 

else , \ 

set gSpritesOnList = [j 

repeat with' N = FirstSprite to. LastSprite 

puppetsprite N f true 

add gSpritesonList, N •. . 

end repeat .. 
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end if. . , y 

• end- . . . - '.. \ ' • ; ' , /• 

on Spritesoff ■ First Sprite, LastSprite • . .' 

turns off sprites in consecutive channels from 
.-- FirstSprite to. Last Sprite •* . :. 

repeat' with -N > .FirstSprite; to LastSprite, . , 
\ <: puppet sprite N. false , ' " ' . 
: end repeat ' - . y / ■ 

end . ...;>. '•.<•.. 




Movie ;Script44:WaitHandlers 

- 1 



. . .. T ' •. ' • • • 

.- .' .... ' ... _ ■_ 

• ■■ on wait Howlong : . .. . > .'. ; > 

— New Improved wait handler, doesn't, reset timer , . 
every time it's' called, be sure to " StartTimer in, 
-. -r- •oh^StartMoyie'" ' ■ * * _ ; . 

se t x = the timer , / ' 

put x ; into oldtime stores time 
repeat while (oldtime + Howlong). : > x . ■ '" . 

f nothing • • >t -')"■' ., ' "' 

v.y set x = the .timer . % \ \ 

. end repeat - ' . •> • 

end wait 

V ' " : '■'/■■ / :'■ ■ . : , ' - ' 1 ■ " ■ , . -/- " . 
; on waitPlus Howlong; doWhat _,. 

. Same as above handler except that; allows passing 
« of a handler to' be executed during the wait -■ 
• .. Handler must be a string , ■ y 

^ .set x = the timer y; ■. 
put x into oldtime stores time 
repeat while (oldtime + . Howlong) > x 
* do doWhat --. must he a string 
set x = the timer 
. end repeat 1 . 

end wait • . • ' ' 

m { ' ■ ' " . ■ . y ; ' 

on IgnoreMouseDowns » •• . 

if the mousedown, then don tpas seven t • : ; ^ 

; end ,. . • • • V ."> y . . y' ; - f >" ' .• 




Score Script45 



on ex it Frame, 
cursor A 

r i : i sp 1 a y Rh ymeT i meci a t a 
• cursor rl / . .. 

end- . " ' ■ , , " ■■ 



Script of Cast.Member48 



on mouseUp r 

go to movie "dataTest * 

end \ 
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Movie Script-55 



- * ■ i . 



on initBalloonFields,' -empty 'Balloon \s data fields of" all but' first Line • 
-•global v'gfc^i l^QnFifeids. ^gQ^_3Vi^^i§t / ^h^Forjt • " ' . • 

• . . • • ■ •-.-"». 

if not" get One (gGamesViewedList-/ HBallpo- .) then 

append gGajriesyiewedList , 3 Balloon 
• repeat with thisfield in 

Put "■. " into field, thisfield < : - -L v.". * " ; * 

; set the- font of field, this field = gTheFont ' . , '/. 

set the fontsize of field thisfield = .12 ■ '. * ••>•" 

set the, fontStyle of line 1 of field thisfield = : underLine * : 
case" (thisField) of ■'■ . v . . /■ . . .'. ■ . - 

"DataDate." : Put "Date: " • into text ' p 

"BalloonTask" : Put . "Task :" into text - y - 

* "BalloonNumber" : Put 'Nujriber : " into text ' 

"BalloonStimType" :Put "Stimulus Type: " into text 
- "BalloonVisDisplay"-: Put "Visual Display: " into text 
. "BalloonNoise" : Put "Noise:;" '.into- text 
"BalloonScore" : Put "Cuml . Score : " into text 

.'. ' end case • V " <' •'. : ' '.' 

put text into line : 1 of field thisField 

set the fontStyle. of line 1 of field thisfield- = "underLine" 
put " " INTO LINE 2 OF field thisField- 1 • '. 
. setPlainStyle (2, thisfield) .. ' ... 

end repeat . . v ^ :'\. . •• ;• 

else - v. ■' . ./ •' ■ . ; .• '.. 

repeat with thisfield in gballoonFields, 

set NumLines = the number of lines of f ield' thisField 
"if ; Line" 2 of field thisfield = V " then exit repeat 
delete line 2 to numlines of field thisfield 
put " " INTO LINE '2 OF field thisField* * ■ • , \ ' 

•: .. setPlainStyle (2 , thisfield) • , '. ' 

\ end repeat •' ... ' v> ' ., ' - ■ * v ; 

end /if \ , 
end ; . •. • •■ 



. / 
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Score Script62 



on exicFrame 
cursor 4 

•displayBalloonData. ; 
end 



Score Script63 



on mouseDown. : '. • > 

global , gSes si onNum • . ' V ' . ' 

if BlankArrow ( ) then exit' --. ;do \no thing if blank arrow is up 

if legalbuttohhandler (;) then ../•• 

cursor 4 ;• '. ■- • ; ' . . / ; . 

.initCatConFields . , 

set gSessionNum ==. gSessionNum + 1: 
. newdisplayCatconData i '; 

.cursor -1 : i ' '• ■ 

.• end if •• : - 0 " : .. . 

end; : . . . - ■ -' ' ".* ' •• 



Score Script67 



on mouseUp 

go to movie "dataTest 

end ' ,' •* 



i * 



Movie Script? 1 



on MakeNameList x, y ' 
set nameList = [] > 
■ repeat with num = x to y 

set MemberName = the name of member num 
. append- namelist , membername 
end repeat 

put nameList . 

end . •' • ." <. 



! J 



-4 



.4 1 
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Score Script72 



on exitFrame 

cursor 4 , 
NewdisplayCatGonData 

cursor -1 
end 
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Movie Script73 

: ' ' -. - ' > , *"'••". 

* • l 

on initCatConFields ; * 

-v empty "CataPillar Con"s data fields of all but fisrt Line - 
global gcatConFieids , gGamesViewedList , gTheFont 
'if not getOne (gGamesViewedList , #CatConV then 

append gGamesViewedList , #CatCon. ■ . * / 

repeat with this field in. g'catCoriFields 

set NumLines . = the number of lines of field this Fie Id 

put * . " into- field .this field ■ 1 

set the font of field thisf ield = gTheFont . . 

set the fontsize of field thisfield =.12 

set the fontStyle of line i of field thisfield to: "plain; underline 
case (thisField) of' 

"DataDate" :Put. -Date: " into text : 

"CatConTask" ; Put "Task ; . " into text 1 - 

' • CatConUnits" :Put 'Units:" into text ' 
; "CatConlnterval " : Put ■ Interval : " into text 

"CatConTarget " : Put "Target:- into text 

"CatConFoils" :Put "#Foils" into text 

"CatConScore" :'Put "Cuml. Score: " ' into text 
end case . . - . ; , 

put text dnto line 1 of field thisField . V • 

- . ... ■ . • ■ -» .• .. • _ . 

set the fontStyle of line 1 of field thisfield to "plain, underLine 
. delete line 2 to numlines of field thisfield. 
put " " INTO LINE 2 OF field thisField ' 
setPlainStyle(2 , thisfield)' ; . t ; -.- ,. 

end repeat ; ' 
■ else ■■ ■' ^ - .* 

repeat with thisf ield' in gcatConFields ;'. 

set NumLines = .the number of lines of f ield thisField . 
if line 2 of field thisfield = "" "then exit repeat 
delete line 2 to numlines of field thisfield 
put " " INTO LINE 2 OF field thisField 
setPlainStyle (2, thisf ield) .: , / 1 

end repeat ; 
end if 
end' '" ■• 



( 
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Score Script?* 



on mouseDown . 

global gSessionNum . 

if BlankArrowi ) then .exit / 
' i f legalbuttonHandler ( ) then ; 

cursor 4 . . ' v - - . /• 

initBalloonFields 
set gSessionNum = 
dis 

cursor -1 
end if - 
end 



do nothing if blank arrow is up 



i » 



+ 1 



I- * 



V"- 



Score Script78 



• ■ i 



on mouseDown : . .. ' . : - ' : ■ ■: 

global gSessionNum* ■'■ ■ v 

if BlankArrowO . then exit do nothing if blank arrow is up 
if legalbuttonHandler ( ) then 

spriteListOf f V . • 

updatestage 
■~r-r initRtFields 
set gSessionNum = 
'. go to Marker (0) 
'end if 
end 



- 1 



Score Script79 



■ i 
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Score Scripteo 



on mouseDown - : ; - 

global gSessi'onNum ' > "' . ; 

if BlankArrow( ) then exit -- do nothing, if blank arrow is v up 
if legalbuttonHandler ( ) then '■' . . V; 

• spriteListpf f . . t t . \ '• V ■ . . 

updates tage 

' ~- ini 'tRt Field's- ,' , . . " "„ ■ • "*■ . ■' 

set gSessionNum - "gSessionNum + 1 . '/* 

go to Marker (0 ) • 

end if '••-/' " • ' 

end ■'"..'*. 



i ■ 
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Movie Script81 * : '■" ; . ' \ . 

1 * * * * 

' - 1 * T ' * i 

on displayRhymeTimeData ... ■ ;. '•' 

global gRecordDisplay, gWhichUfer, gSessionNum 

.• put getData (gRecordDisplay, gWhichUser, 3) into dataList 

set SessionNums = count (dataList ). • . . ; 

■» - , _ ■ ■ v' 

putUpNavArrows SessionNums . - . 



updates tag e .. . 1 .". ■ -/ "• *. ■•' " ~ 

put getpropat (dataList # . gSessionNum) into dite 

put get Prop' (dataList, date) into sessionList ^ , ... 

"put date into line 2 of field "dataDate" ./ 
setPlain5tyle(2; "dataDate- ) '", ... " \ . •.. 

set NumRounds = count (sessionList) J ' 

set Taskl '= 0. ■ , •// .. ,. ' ' ' ' ..; ' : -- " : 

set task2 =\ 0 . • ' ' . ; * ; . '. ' . ,< ,-. . 

repeat with "x = 1 to riumRounds • * : v . ' * : v . 

put getpropat (sessionList , x- ) into Level . ' : . . \ 

set LineNuml . = the number of lines of field "RT Score!"' ' 
set LineNum2 = the number of lines of field "RT Score2" 
■• - '.. .Case (Level) of ■ ■ * • ..,'«'-/•; . 

. "1"' , "2" :i "3" ; "4"> "5": • PutUpTasklStats level "■ i - ; _ .' 

put get Prop (sessionList , level )& return into line linenumi of field "RT Scorel" 
set PlainStyle { lineNuml , "RT score 1 p )/ : * '. • ' 

set taskl = 1 V " '. . . '•: : . ' ■ ■ ' - - -\ : ' "' ' 4 : \ = ■ / 

Y ' -6- , "7-., -8- , -9r ,"10", "11" : PutUpTask2Stats leveL ' 

put getProp ( sessionList , level ) & return into line linenum2 of field "RT Score2" 
• setPlainStyle ( lineNum2 , "RT scpre2 " ) ; • • V . 

■ ■.- i .set task? =* 1 '• ' y [ . ' ' , " . : ' . " \/ 

end case . ' . • ;. ; . / - •. _ • ] • ■ 

end repeat '.. • ^ ' " • • • , 

; if (taskl =■ 1) and (task2 = 1) ,theri : both tasks must be displayed : 
set FieldSize = (the bottom of sprite 10) (the top of . sprite 10) 
repeat with'x- 10 to 13 ' . . ■ . '•. r 

set the loc of sprite (x+5) to ( the 16c of sprite x ) V point (0. fieldSize) 
' updates tag e „ . ' , • • / 

end repeat : . y . ■ ' : ■•' ■ - . 1 

..exit . ' . • \ v - 

^end if , v ' '■ .' ,_ - ^ .- - "/ ■ 

if Taskl = 1 and task2 ( = 0 then just display task 1 '. 

• nothingi ' / ' '/ ; " • ' -v • 

■ ' exit' , / ^ . ; . • . \. - ; . • - 

.end if -" : 0 ■ ■ • ■*.. ,-. . •. ; '.. '[ .,: V , ; 

if taskl =. 0 and task2 = 1 then just display task 2 
repeat with x =10 to 13 

set newCast •= the member of sprite (x+5) \ 
set the member of sprite x to newCast - 
set the loc of sprite (x + 5) to the loc of sprite x 
' updates tage , ■ - - ' \: . /' ■ 

end repeat : * ' . t ..■ . - : 

r ■ end if ' ' ■ ; t ..' . /. . . V.- 

■ end . ; .";■•< • ' ' .. . * • v '. 
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on PutUpTasklStats whichLine \ T . - 

set whichLine ' =? Value (whichLine) 
'put field "RTLevelKeywords " * into keywords 
set lineNum = the number "of lines of field "RT Task(l) ■■ 

put item 2 of line whichLine of : keywords & return into line lineNum' of field 

TaskU) " ■■ v . . • : : : . ' ; ; , 

setPlainStyle { lineNUm, "RT Task ( 1 ) M ) ^ ' : 
set .lineNum = the number of lines of field "RT InSetOf" 

put item 3 of line whichLine of keywords" & return into line lineNum of field 

InSetOf "■ - , , .- \ 

setPlainStyle ( lineNUm, "RT InSetOf). : 1 

.set .lineNum =' the number of lines of field "RT BgNoisel" 

put. Item- 4 of line ..whichLine of keywords & return into line lineNum of field 
rNoisel" . . ~ . - ' " '« ■ - " '"■ .'* 

setPlainStyle (lineNUm, "RT BgNoisel") ' v - 



RT 



RT 



RT 



■ •. ■ - » • • . . ■■ • • • ■ , - "..-.< • - ■ . 

on PutUpTask2Stats, whichLine ' , • 

set whichLine" = Value (whichLine} 

put field "RTLevelKeywords" Into keywords 

set lineNum "= the number of lines of field "RT Task (2) " ;. >v " 

put;, item 2 of line whichLine • of keywords & return into .-line lineNum of field 
Task (2) " . ; ■ ''' . : ; ' ■ ; 

. setPlainStyle ( lineNUm, "RT Task (2) " ) • • : • 

put item 3 of line whichLine of keywords & return; into line lineNum of field 
respons eCho ice"; . ■' \ .... / / \ 

setPlainStyle (lineNUm, "RT responseChoice" ) 

put item 4 of line whichLine of keywords & return into line; lineNum of field 
BgNoise2"' ' . . ."" '• ■ , • . ' • 

setPlainStyle ( lineNUm, "RT BgNoise2") : 



RT 



"RT 



RT 
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Movie Script83 



on puppe t Bu 1 1 o nSp rites whichlslt • ■ . 

- - turns on/off buttons for scroll ing through sessions 
exclusive of spritesOnList handler 

global gNextButton, gPrevButton 

puppetsprite gNextButton, whichlslt 

puppet sprite gPrevButton, whichlslt 
end ': . . •• - . V- 1 
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Score Script84 



on nvDpseDown 

global gSessionNum l . 
if BlarikArrow( ) then exit — do nothing if blank arrow is, up 
if legalbuttonhandler ( ) then ; . 

cursor 4 

initCatConFields 

set gSessionNum = gSessionNum -1 . 
newdisplayCatconData ,. ~ 

cursor -i - , . ; . 

. end i f 
end 



Score Script85 



on exitFrame 

MakeVisRapTapSpr i tes - - ■ 
puppe t Bu 1 t onSpr i t es true 
. spritesonlist [28] 

end 



special case from RapTap task 2 



Score Script86 



on exitFrame 

MakeVisRapTapSprit.es special case from RapTap task 2 
puppe tBu 1 1 onSpr i t es true 
spritesonlist [28] 
end 



1 
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Spore Scripts 7 



.on mouseDown - * »' f 

global gSessionNum .* . > 

if BlankArrowO then exit — do nothing if blank arrow is. up 
.if 1 eg a lbu 1 1 onHandl er ( ) then 
cursor 4 . 
. ini t Ba 1 1 odnF i e Ids 

set gSessionNum == gSessionNum - 1 
dispiayBalloonData 
.cursor -1 
end if y 
end 



J - 



I ■ 4. 
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Movie Script88:newEgg2DataDisplay ' • 

on PutUpEggTaskS scores date, .sessionList v ■ . " - : . ;\ 

global gMoreButton, gMoreButtoriLoe , gNextStart, gEgg2ob, gSession^hOT, gC^erRunSession 
global gNumPages ; v. :> -; f; - " • 



. set gOverRunS.es s ion = ( : ] 

** 

if the machineType' = 256 then 
: ■' 1 set OverRunLine =15 
else 

set OverRunLine = 17 . - 
end- if . 1 '* 



u 



. A 



^ * 



set NumRounds .= count ( sessionList ) 

' . .. ' ■ - . ■ • ' • . • . - • • - ••• ' , v ■ . • . . \\ • 

i f . numRounds <- (OverRunLine. + 1) ; then , : /' • . 

setaprop gOverRunSession; date;' .s ess ionList only need- one- sessiohList' 

set gNumPages =. 1 " .■ '*;;'-'.' ; y ' . , \i 

else *• * , '- ... . , • v 

if numRounds > (OverRunLine +1) and numRounds <= ( (2*OverRunLine) + 1) then 

split sessionList into two lists for each page of screen data 
'.. set tempListl = [ : ] .;. . _': 

set tempi ist2 = [ : ] ; . ;■ ' ' „ • 

set tempi is 1 3 = [] ■ ■ . J. , * ' "/.y ' ' 

repeat With x -= 1.. to OverRunLine - . . . • . . . / 

setAProp tempListl, get PropAt ( sess ionList ,.x) ., getAt (sessionList ,x)- " ;. 

> end repeat • • . ! v - , 

append templist.3 , templistl '">.*, ; -. 

repeat with x = ( OverRunLine + 1) to numrounds y . * : 

setAProp tempList2, getPropAt (sessionList ,x) , getAt ( sessionList , x) 
end repeat •' ■■■ ■ - •• ; : < / • • * ' • • '. ..' " . : -\/ ' ' 

append tempi is t3 , \ tempi ist2 '* 
setaprop gOverRunSession, date., tempList3 : t . ..V:/'; :. ' . 

set' gNujnPages = 2 . .-' ■ ■ \ . " ' * . ' . 

. else • ■'■ ■ •. - ■ 1 - . \ . ■' . ■ 

if. numRounds > ( ( 2 * OverRunLine ) + 1) then 
-- need three, screens to show more data 

set tempListl =. hi • 'v . .; : \ ' • 

set templist2 = [:]; • \ t 

set tempi is 1 3, =. [ : ] " • . ' ' \ 

. . set tempi is 1 4 = {] ■ C -/ ■ ■ 

. repeat with x = 1 to OverRunLine . '. ... 

; ■*. setAProp tempListl /getPropAt (sessionList , x) / getAt (sessionList , x) ■ 
■ end repeat ' • , ;, .; 

append templist4, . tempi is tl 

repeat with x = . (overRuriLine + 1) to OverRunLine * 2 

setAProp tempLi*st2, getPropAt (sessionList, x),, getAt ( sessionList , x) 
, ' end repeat * ; , ' , 

append tempi ist4, - templist2 '• ■ 

' - i f numRounds : <= (3 * OverRunLine) + 1 then ' . . .; ■ 

.-- there may be more' than 3 pages worth of data so we 

-■■ need ' to pin out at three, and allow for less than 3 as well 
set last Round = numrounds ; ; 
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else .;■■■< 
set last-Bound = (-3*oyerRunLine) '+ 1 

• end if : /•'•..-'-■'.* ; • / • . ' ;": - : V . 

,. repeat with x = ( ( 2*oyerRunLine) + . 1 ) to lastRound 

setAProp tempList3 , ge.tPropAt (session-List , x). ," getAt (sessionJList , x) 
end repeat . • 

•append tempi is t4 , 1 feejnplist3 ... ■ 

. setapirop gQverRunSe.ssion,. date, tempList4 . . • 

set' gNumPag es = 3 ... --' \ - '; . 

end- if r ; '. ; - .; .. ; . . /: ' . : " . ■ "... • ' - 

. end if . .' • * ■ ; '.. " ' v* ,. ' ••' •.. 

end if ,: '• •' • • ' :'. '■> - • . 



put date into line 2 of field f ieldnum (gEgg2ob, #dataDate) 
setPlainStyle (2 , .f ielcinuiT\(gEgg2ob, ttdataDate) ) 



case ( gNumPages ) of, 
1 : ShowEgg2Pagelpfl 
2 : ShowEgg2 Page 1 o f 2 

3.: 

.. end case 
end 



on ShowEgg2Pagelof 1 • "- : ■ 

global gOverRunSession, gEgg2ob 

set Pag eTo ShowL i s t = getAt (gOverRunSession, >1 j J 
set numRounds = count ( PageToShowList ) 
repeat with x = 1 to numRounds ; 

. put. getpropat { PageToShowList , x ) into Level . 

,. set LineNum .= the number of lines of field £ ieldnum (gegg2ob, #EggTask2 ) 
PutUpEgg2words level ' .'\ .. \," ,\ , ■ ;' : t ' ■ 

put getProp (PageToShowList , level ) into scoreList' ' ' "r ^ '. 
put getat (scoreList , 1 ) &return into Line LineNum of field 
f ieldNum(gEgg2ob, #Egg2Diff Score) 

setPlainStyle (lineNum/f ieldNum (gEgg2ob, #Egg2Dif f Score) } .... • 
put- getat (scoreList ,2 ) &re turn into Line LineNum of field 
f i'eldNum(gEgg2ob, #Egg2sameScore) • ; 

setPlainStyle ( lineNum, f ieldNum(gEgg2ob < #Egg2sameScore) ) . *V 
end repeat . ■■ * "• ' 

. .. • ■ » "• * ' . 

on ShowEgg2Pagelpf 2 ' m . ; . . ' 

global gOverRunSession, gPageNum, gEgg2ob ( - -\ .; b ■ , • 

sendAwayViewPageButtori . • t '' ' •"' , v 

updatestage — . ' J ' V . - ' : ~ • . 

set • date = getPropAt (gOverRunSession, 1) 

put' date into line 2 of field f ieldnum (gEgg2ob, #databate) 
setPlainStyle (2 , f ieldnum (gEgg2ob , #dataDate) ) 
• putUpPglof 2 text, prompt . \ 

set _ PagesToShowList = getAt (gOverRunSession, -1). . ]'■' 
set PageToShowList = getAt '(PagesToShowList, 1) . . 
set numRounds count ( PageToShowLi s t )' 

■ repeat with x =1 to numRounds . - ; - : 

put getpropat ( PageToShowList . x ) into. Level " 

• set LineNum = the number of lines of field f ieldnum (gegg2ob. #EggTask2) 

■ - . Pur Up Egg -2 words -level • v - . ' ; > 

put get Prop ( PageToShowList , level ) into scorehist ' .. 

• put getdt (scoreList , 1 ) kreturn into Line LineNxirr of field; ,.- 
f ie ldNum ( gEgg2ob t # Egg2Di f f Score ) ' - ' ' ' ; /' 
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. .. , setPiainStyle^ lineNum, f ieldNum (gEgg2ob, #Egg2Dif f Score )•) • " 

put getat ( scoreList , 2 ) ^return into Line LineNum of field .'; 
fieldMum(gEgg2ob. #Egg2sameScore) '-. ' ; 

setPiainStyle (LineNum, fie ldNum ( gEgg 2 ob , #Egg2sameScore) ) «. • 

end repeat ' ' « • - , ■ • V . 

putUpEgg2Ell ipses lineNum + 1 . \ ■ . 1 

• . . • v •• .' . - ' ; i- ,: ' ■■' . ■•" . . 

PutUpViewPage2of 2 7- Button ■ 
set gPageNum = 1; . ■ ... , 

end;. * * ' : ' , - ,; " '■■ • * . • 

on ShowEgg2Pag'e2of 2 ' m >\ . " v.- : " "_ ; 

global gOverRunSession, . gPageNum. gEgg2pb . . ■ 

set date = getPropAt (gOverRunSession, 1) . .. *' .- : '\ . .... 

put date into line 2 of field fie ldnum ( gEgg 2 ob , #dataDate) '•. .* ^ 
setPiainStyle (2, f ieldnum (gEgg2ob # #da'taDate) ) ' ; v 

putUpPg2of2 text prompt ., . , . 

*set PagesToShowList =' getAt (gOverRunSession, 1) " - . 
set PageToShowList = getAt ( PagesToShowList , 2) ' ' • . . 

. set " numRounds = count (PageToShowList ), ; , '<"'';y., 
repeat with x = 1 to numRounds v ( .\. . V • ' ' -' ■ •" '"■ •• ' " - 

put getpropat ( PageToShowList > x ) . , into ; Level . • *• ' 

set LineNum .=. the number of lines 1 0f field f ieldnum(gegg2ob, , #EggTask2) 
PutUpEgg2 words level , . -t - ■ - 

. put cjetProp ( PageToShowList , level )-. into scoreList V v 

* put getat (scoreList, 1) ^return into Line LineNum of field 
f ieldNum (gEgg2ob, #Egg2Diff Score). ' . 
. ie.tPlairiStyl.e.{ 1 iheflurn, fieldihiw ($Egg2oi>' t #:£g'g2Di ff Score') }' • ; - 
put getat ( scoreList , 2 ) ^return into Line LineNum of field 
f ieldNum (gEgg2ob, #Egg2sameScore j 

setPlainStyle.t lineNum, f ieldNum (gEgg2ob, #Egg2sameScore) ) . , 
end repeat ;V :[ \- ' . * ' . J'. 

' ■ • , • . . '■ 

'*•" " ■ j , * - ■ 1 

« 1 .•!.*". * ' * " * . T " 

L ' ■ 1 

Pu t Up V i e w P a g e 1 6 f 2 . .Button * • ' 

set gPageNum ' = 2 , * .fj : ' v \ 

-end' . ' " \ : ... , > ' • : 

". . ' • ; - ; - ■„ ' . .~ ■ '. • \ • . ■ '•• ;■ 

on ShowEgg2 Page. 1 o f 3 <: . . + ' . ; 1 

global gOverRunSession, gPageNum, gEgg2ob / V' 
seridAwayViewPageBut ton /_• ' ; '■- S* : v . • 

updates t age . . s . ^ 

set date = get PropAt (gOverRunSession, i) 

put date into line 2 of field f ieldnum(gEgg26b, #dataDate) 
setPiainStyle (2 , f ieldnum(gEgg2pb, #dataDate) ) . 
putUpPglof3 - ■ text prompt ■ . n ' 1 . v"'' ' ■- ; ', 

set -PagesToShowList = getAt (gOverRunSession, 1) . • ' 

set PageToShowList = getAt (PagesToShowList, 1) ; 
set numRounds - count (PageToShowList } - 
repeat with x = 1' to numRounds 

put getpropat ( PageToShowList ,x ) into Level .. 

set LineNum = the number of lines of field f ieldnum(gegg2ob, #.EggTask2) 
PutUpEgg2 words - level 

put get Prop (PageToShowList /level ) into scoreList 
, put getat (scoreList, D&return into Line LineNum of field 
fieldNum(gEgg2ob,#Egg2Dif.f Score) 

setPiainStyle (lineNum, f i e 1 dNum ( gEgg2 ob , #Egg2Diff Score) ) 
put getat (scpreList , 2 ) Stretvirn into Line LineNum of field 
f ieldNum(gEgg2ob/ , #Egg2sameScore) " ; - 

setPiainStyle ( lineNum, f ieldNum(gEgg2ob. #Egg2sameScore ) ) 
end repeat ; ... • ' • 

pu tUpEgg 2 E 1 1 ipses lineNum +1 " [ ■ 
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■' . ■■".:«_-' • ' • ' ' 

• : • , •' \ ' - ■ .'• • •■• . \ _ , ■ ■ ■ ' ';■ 

. PutUpViewPage2of 3 Button ; • ' r ■ / , ; .\. / ■ " • - ; 

set gPageNum = 1 ; V '••-/ 

. end ■■:)"'■'■:"'•/*.■ ■ . . ' ' • ... ' ' . - 

■ •• ' ; '. - • .. . • ■ . ■ 1 • ■ v • . - • 1 ; 1 

on ShowEgg2Page2of 3 / - ' •• . ■: ;.. 

- global gOverRunSession, gPageNum", gEgg2ob v • 
set. date = getPropAt (gOverRunSession, 1) . : ; = ; 

-put -date Into line 2 of. field . f ieldnum (gEgg2ob, * #dataDate) '• < , , . 

- setPlainStyle(2;fieldnum(gEgg2ob, .#dataDate ).) - - V. 
.• putUpPg2of3 text prompt "... \ , ■ 

set PagesToShowList. = getAt (gOverRunSession , 1); v 1 ' . 

set PageToShowList = getAt .{PagesToShowList, 2 ) . - 

set . numRounds - • count ( PageToShowList ) 
repeat. with x = 1 to numRounds 

; put getpropat ( PageToShowList , x ) into Level . / 
■ set LineNum = the number of lines of field f ieldnum (gegg2ob,. #EggTask2 ) 
PutUpEgg2 words, level 

put getProp (PageToShowList, level) .into scoreList" 

put getat (scoreList , i) ^return into Line LineNum of field: . *: 
. f ieldNum(gEgg2ob, #Egg2Diff Score) ; ■.•/'■ - \ '*'■..' 

setPlainStyle (lineNum, f ieldNum (gEgg2ob, #Egg2Diff Score) ) 

put getat (scoreList/2) ^return 'into line LineNum of f ield , 
,' f ieldNum (gEgg2ob, #Egg2sameScore)* * • ' : - " " , ; 

setPlainStyle (lineNum, f ieldNum{gEgg2pb/#Egg2sameScore) ) ' ; 

end repeat "' . . ' • • : w 

• putUpEgg2 Ellipses lineNum + 1 ■ . „. ; . < ' • : * ... 

• * - * • ..... 

' PutUpViewPage3of 3 -- 'Button'/ :•' ; * ^ - • \ ; ,'- . 

set gPageNum ;= 2 - • . 

• end / . 

y on ShoWEgg2Page3of 3 - 

global gOverRunSession/ gPageNum", gEgg2ob 
set date ;.= get PropAt'(gOverRunSess ion, 1) . 

•put date into line 2 of field f ieldnum{gEgg2ob, #dataDate) 
... setPlainStyle (2 , f ieldnum(gEgg2ob / #dataDate) j 
putUpPg3of : 3 r- text prompt 

set ..PagesToShowList = getAt (gOverRunSession, 1) " '< 

V set PageToShowList = getAt - (PagesToShowList, 3) '". 
"set numRounds. = count ( PageToShowList) 
repeat with x = 1 to numRounds .. .. 

put getpropat ( PageToShowList , x ) into Level 

set . LineNum = the. number of ' lines, of field f ieldnum(gegg2ob, #EggTask2) 
PutUpEgg2words level ." ' ' ' 

- put get Prop ( PageToShowList level ) into scoreList 

put getat (scoreList, 1 ) ^return into Line LineNum of field 
.• f ieldNum(gEgg2ob, #Egg2Diff Score) 

setPlainStyle (lineNum, f ieldNum (gEgg2ob. #Egg2Diff Score ) ) 

• . put getat (scoreList , 2 ) kreturh into -Line LineNum of field " ! 

f ieldNum (gEgg2ob, #Egg2sameScore) " 

setPlainStyle (lineNum. f ieldNum (gEgg2ob, # Egg2 sameScore ) ) I 
end repeat . • 

. - • • ■ - • • 

PutUpViewPagelof 3 --Button - 
. set g Pag eNum = 3 . 

end:. • .' ... '' - 
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on PutUpEgg2words whichLine 

global gEgg2ob '" 
. set WhichLine = value (whichLine) ■ ' 

put field "EggLevelKeywprds" into keywords:; 

set lineNum = the number - of lines of • field, fleldnumt gegg2ob, #EggTask2 ) 

put, item 1 of line whichLine of keywords & return into .line lineNyjri of field 

f ieldnum(gegg2bb, #EggTask2 ) / 

setPlainStyle (LineNum, f ieldnum(gegg2ob, #EggTask2) ) ' . 
set lineNum -■ the number of lines of field f ieldnum (gEgg2ob, #EggDurat ion) 
put item 2 of line whichLine of keywords & return into line lineNum of field 

f ieldnum (gEgg2ob, #EggDuration) ; : . 

setPlainStyle (LineNum, fieldnum(gEgg2ob, #EggDuration) } 

set lineNum = the number of lines of field f ieldnum (gEgg?.ob, #EggAmpl if ication) 
put item, 3. of line whichLine of keywords^ return into line lineNum of field 

f ieldnum (gEgg2ob, #EggAmpl if ication) . \ 
r setPlainStyle (LineNum, f ieldnum (gEgg2ob, . #EggAmpl if ication) ) 
set lineNum = the number of lines of field f ieldnum (gEgg2ob, #EggStepn) 
put item 4 of line whichLine of keywords & return into line lineNum of, field 

fie Idnum ( gEgg2 ob . #EggSteps) . . 

setPlainStyle (LineNum, f ieldnum (gEgg2pb, #EggSteps) ) ', v 

~^ . ■ ■ ■ . _ 

end ' . ; 



on putUpEgg2Ellipses whichLine 
• global gEggTask2Fields 
repeat with x in gEggTask2Fields • •-' 

if x - "DataDate" then next' repeat * 
put." * into line whichLine of field x ... V, 

set the textstyle of line whichLine of field x t^; " italic , underline 



put "...more..." into line whichLine of field x 
setPlainStyle (whichLine, x) 
end repeat. 

end • 
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Movie Script89:newCbai1 Display 

■ . ., " ; ' . . ■ ' -; ' - ; ', ' ' •• -. • ■ . " 

on PutUpCoallData • . - • .,' 

' global gRecoT dpi replay. qWhiehUser . q^ess ionNiim/ qJiextS' art ; g^/erPunS^ss i on . :. . gNuifiFage: 

Global gPagelirim' - / - ' ' . ' ■ 

. -, T 5/1/97 * . • / • • \ - . 

shows up to three screens of data; for any sessi ->n . '' '„. 
—completely revised data display procedures, 

. set, gNumPages ■= .0 . 
set gPageNum - 0 

if the machineType. = '"i r ^ then . . : - 

set OverRunLine = 19 ' , . ' . 

e*se ■ -.. '.. - .. .,' ' '• : . 

h- 'set OverRunLii.e =■ - . . ; 

end if V ' 

put getData igRecordPi --splay-' cjWh i chUser .61 into daraLin* * .- ; 

set Sess ionNums = .count (d/itaList ) ;/ •» ■'-.-.*■ 

. 'put UpNavAr rows sess^oroNums ; . ; 

. upda test age , ••' \ ... : . ' 

■ .-.*" • ■ - ■ ■ * - > 

. set' gOyerRunSessiori - ■".{■■ j ' " ! • 

- M * " " l S ■ 

* 1 ' ' * ■, ' 

' ■ T , ■ " * '•■■•.' 1 " 

put getpropat (dataList , gSessiohNum) into date- •' ■•• - *, 

put getat (dataList ,,gSessionNum). Anto SessionList ' 

' • * - * •' 

set NumRounds - count ( sess ionList ) . 

v ; - ' . ; ;•' . ' , . '. v ' _\ ■ ' 

Here we need to look at numRounds and decide how many pages we will. ■■> ; 

need to show the data. '.If it's one then we ; re good, if two or. three . , ; : 

then we need to break -sessionList\ into" pieces, to feed, into the - • 
-- display routines/ and store those pieces as -a . 1 ist.;o.f l ists , . 

in a property list with, "date" as property '*■ " 

if. numRounds <= (Ov.erRunLine + i) then . 

setaprop gOverRunSess ion , date, sessibnList — only need one sessionList 
set gNumPages = 1 
• else . .:. . ' 

if numRounds > (OverRunLine + 1 ) and numRounds <= ( (2 *OverRunLine) +1) then 
split sessionJList into two lists for each page of screen data 
set tejnnpListl = [ : ] 
set templist2 =[:]•.;'■ 
set templist3 = [] 

repeat with x = 1 to overRunLine 1 

setAProp tempListl getPropAt (sessiohList , x) > getAt (sessionList , x ) 
end repeat 

append tempi is t 3 , templistl . 
repeat with x = (overRunLine + 1) to numrounds 

setAProp tempList2 , getPropAt (sessio.\List , x) , getAt ; sessiohList- x )' 
end repeat * •. 
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append tempi ist 3 ,- temp list 2 -/ • • ' 

set aprqp gOve rP.unSes s i on , .date, - tempList 3 
set uNiimPages = 2 ; . - . - 



i S e 



■ , - - * \ 

. ^ « « I 


' i-' ■ •. 


■: 2 *• verF 


? .u::Line ').." * ' -.1< ; - ',' ■ hen ■' 


:ieed 


flu tr-z- 


screens 


t o show. *a 1 1' £ he da t a 


?*■ * enip 


Li st.J 


- [ : 1 ; 




-* * temp 


• ; h ^ 


; I : ) • 




• ren-i 








• '. . _ • t 


* 


; - i : : 


*■'•.' :,• ' 



: ^peat v,*i ■»■ k. x i to overRunLine -. * •,- ' _ . ■'■ ' 

: ^r AP: - r • "inpL;ist 1/get PropAt ( sess i orvList . xj , . getAt ( sess i onLi s t ,-x 1 

i'-rej.^'i! . ..■ ■ •.' " : ■ ; . 

,ippenci tempi i;;t.4. tempi istl v ' '. , : - / 

: -pear : r : - ^ >verRunLihe . ; : .I V S ' v-t RwiiLine * 2 . V • 

?-T.-i ge? "pi opA- :'■ /.s-t-/ :-:"« . g-t At ( sess lOnLi .a .x) 



4 • 



•n- : •* ~mp-l iraS.4 . t ;.*mpJ ; st 2 ' 1 • • ■ v . ■■'•*. V.' . ~ . ; ' ■ ■ v 

1 1. 1 i x : . i i 2/ pvei RunL i ; > • i' > : ■ • 'numrounds - , ; . : 

s^tAPiop. leirpListJ, get PropAt \ sess loiiList . x ) / getAt (sess ipnLiV.i . x )',- ' 1 

end repe 



append remp]ist4. ; tempi i-st«3 ' " 

arVr'^-: /i5,ve i ''P.unr.es s i-v «i i . date, r empList4 
.*.et iU- : »a« -s f : J -'. . . . ■ ' . 



- V . 



: ::T " ; me 2 of tie-Id "dataDat e 



;av'/i e'.vFvv-i^Bvr. t-?«n 



/ : : l; v.- -panels f - ■ - '•• ■ :. r; 



on Sht ^wCCPr.gelpt ■- •• ; : - .-■ . r 

globeil gCverRuriSes s ion '. '[ - • - / . . .. 

set PageToShpwList - = getAt (gOverRunSess ion;, .1 ) *. . ' . ; , " ; ; ' r 

set humRounds . = count ( PageToShowList ) ' ; . • ';. 

• repeat- with. x = 1 to numRourids 

put getpropat ( r Pc geToShowList ;.x , )' into Level. " • . 

set ' LineNum = the number of lines of field "Coal taskl" - 
PutUpCoa 11 words level . 

put get Prop { PageToShowList , level ) U return into line linenuxn of field Toallscore 
setPlainStyle( lineNum, "Coal lscore " ) / .: ^ ; 

end repeat < : *. 

■.■-> ■ t t "•■ ... 

end • ' • . • ' - . . ' .. ' • . ., ' ' 

on " ShowCCPagelof 2 ' \- I / : . •' ' .;* _ ' " 

. global gOverRunSession. gPageNum , , ■■■ 
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set date = getPrcpAt CgOverRuriSessidn, 1 ) • . - ; % > ' . ;;. 

pur date into line '2 of. field " da tapate* : : : ' 

s e t. P 1 a i nS t y 1 e ( 2 , " da t a Da t e " I : , * ? ; . ' . , ' 

pu.tUpPglof 2 '-- text prompt / ■ . . , ..... '• '•• • ;■• .'. '■ ... • . 

set PagesToShowLi st = get At ( gOverRunSess ion, 1 } " •. , 1 

set PageToShowList = getAt { PagesToShowList , . I ) / '. ■* 

set numP.ounds = count ( PageToShowList ) • '; .;; V . _ . *° . ; " / ; v ' 

• repeat with x = ,1, to, numRounds - . ' - -o 

put getpropat ( PageToShowList , x ) into Level : 'V' / .'- .; . 

set LineNum. = the number of lines of field 'Coaltaskl" .- •* 
• PutUpCoa 11 words; level. . '•' ' . * - • 

• put get Prop. -{PageToShowList, level ) U return, into line linen urn of field " Coa 11 score " , 

s~t Plainftyle ( 1 ineNum. "Coal lscore r ) ( ' : ' • ■ , 

■ *ik1. lepeat. . «.. ■ \ . ^ • . :• • / . 

: -u; \ \ Coa IE.: 1 i} ■ 1 ir.-Num ♦ .] 4 ; - . ' . . 

''pVwa!- - .Button . . \} . '■ ': '' .'- : \ - '/ 

■ . ' v / . • ' • .. . •. -• ' < ' ' "' * - •* *. - "v. • : • ' .• ' ' 

, ( - r . . ..... 

i . \ . . .. - . . . ' . ' 

' ' ' ""' ' ■ v - ■ • ■ - . v ' - . • . : • ' * ■ " '• 

,«*• - ' . ■ * 

. i vi 1 <j( ; i'Rv::i: V-;.:* m «' -ru: -gPageNi'im' ; •. • / ■ " ■' - ; : 

:*.et .-.date- *- getPi<i>A' ,( qOvei P.uri.*%?r.?i on 1 j ;.('. ' * ■, > . , 

:hi ? ; {at*, into • 1 in**. '.: of field- "dat al3«iv" ' ; - . . " k ' ■ .-. . 

' .v-! ri.iiir' .'. . ' io |p. t it-" '. ; ,' .". . / ' . - . " • , . 

V'uOlpPg^'l ... ■ T.i ■ 'UH - '. V -\ •;. ■ ' '.. -V , ■ . ' / f ■ 

V;»"-t : F 1 ag^:;T' »r-hv ■•wl-.i g*^ At.(gi \*t>i Kun£V*.ssion. . I ) » . ^; .;. ■ 

:'.vT "Prtg^T* ;howLi.:.T - getAt . ('Pay»^sT65^i i -^wList ; « ; ' ■ : . /; : • r .;' 

•:wt numRi'Uiids ■ '•■ -vint ( P*Kj«:>TpS'hijwLi st -1 : • , .. *'. 1 

j- » *j *< i t v f i t i i x i t o riiunRi >unds . o . > 

put getj-iiopat ParieToolv -wLict ; x ). into Level '■'/. . - 

set Lin».'Nuiti - number of " l ines «<f f ield ■ T- -alt . ask'l w ?• 

i'ur Up(:i >ai lwoi « is. level , .' •.' "... ' r- .' >• , ,. . • ; ; . / <• " " ;• 

pur get Prop i PugeToShov;List . level )' l. return, into/1 i'ne 1 in* ".iuiu • >t- * i »dd "Coa lis-- -♦re" 

s^t PlainStyle { 1 ineNum, "Coal iscore" )'; ... . ; > - ... 

end repeat ' .", ■• V ';• •- ' • .. • • ' ... . . - y .y- . . 

Put UpViewPagelot j - But r on .- ' . - : :' . . ' • ; '■ * ". . r 

r>'t- v|PageN- ur\ - 4 - •- ■ ■ . " ■ ■ : . -\ ;■ - :. ' 

lid' • .;•'<; • • . ; - . , *: ' - v' , ' ' 



•)h rihowGCPagelpf 3 - : ' ■: • •. - v ; ".- - : 

global gOver Riin.Session, gPageNum ,/ - ' . ..- - ' , 1 

set date - . get PropAt (gOverRunSess i on , 1 ) . - ' ,-. ' 'o 

put date into line 2 of f-ield 'dataDate r . . - . . 

set P.lainStyie ( 2 , "dataDate - ) \ "'' . '". 

putUpPglof 3 text, prompt . . . , ■ "\- ' . „■ , \ ' ,, 

set PagesToShowList" = getAt .(gOverRunSess ion, 1) ' 
set PageToShowList •. = getAt - ( PagesToShowList , , 1).^ : 
iset humRounds .= count ( PageToShowList ) 

repeat with x .= 1 to numRounds ' ' j 

put getpropat ( PageToShowList ' x ) into Level - •" 
set LineNum . = the nuniber of lines of • f ield "Coaitaskl " v * ■ 

PutUpCpallwords level ■ ,. v 

put get Prop (PageToShowList, level) u return into line linenum of f ield " Coal 1 score 
setPlainStylefl ineNum, "CoallscoreV) o . " t 

• end' repeat . • • ' ' . . 

putUpCoal-Ell ipses 1 ineNum + 1 ' > t - ; . 

PutUpViewPage2of3 Button • 



set gPageNum 1 
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on' ShowCCPage2of 3 - ., \ - >_. - \.\ ■• \ .' ^ 

global gOverRunSession, . gPageNum . . ; 

set date = getPropAt (gOverRunSession/ 1 ) ■ . ' ' • •« • V 

put date into line' 2 of field , "dataDate" v .\ . 

'. setPlainStyie(2, "dataDate") . . /. .V- : " 

putUpPg2of2 text-prompt //-•'; - •: , . 

'/set PagesToShqwList- = go tAt ( gOverRunSe ss ion .' 1 ) 
set PageToShowList ..= getAt (PagesTqShowList. 2) •. * - '' - , 

set numRounds - count. ( PageToShowList ) . ' [ • 
' repeat with x =. 1 to numRounds . 

put getpropat ( PageToShowList ,.x • ) into Level- - -; 

set LineNum = the number of lines of field "Coaltaskl" 
■Put UpC'oai : i words level \ ■ . • : * >: , 

put get Pi V> (PageToShowList. level) & return into line linenum of field • "Coal 1 score ? 

setPlainSr yle ( lineNum,; ".Goali score" ) : . - '"• 

end repeat : \' % ." ■ \ ■ ' v . ' ^ " \ •/.;-• . • . . 

putUpCpalEI ; ipses lineNum + 1 :. *' , / ' r ". 

PutUpViewPa. : : ?3of 3 Vr Button . • ! ■->. '. - V - V . r ■; .' , 

set gPageNur - 2 .;■ ... - •'' : . .". '*' ' 

end; . '/•« - -• .; .'• • : : • • ' ! * * 

on ShowCCPag-- • jf'3 ' ; . w ' , ; . . " / .. V . - . . 

global, gQv.e: ?.unSession, gPageNum , > ', ■ . '.-•.v... '■ 

set date = letPropAt (gOverRunSession, 1 ).. . ' - 

! put date irv.:^ line 2 of f ield .'"dataDate- ' •. . . ^ . \ 

setPlainSty : e {'2 , "dataDace" ) • \ ' . ... ., • ... 

'. putUpPg3o: • - text prorrpt , '* _.. ■-. ■ . *; • h • •• . . - • 

. set PagesT- nuwList = getAt (gOverRunSession; I )•. , . . . ' : '" , . 
" '-set PageT'. . . :. :wList = getAt (PagesToShowList- 3 )' - ; • • ■ 
- set- numRou:. is - \ counts PageToShowList ) .. •. ' ' •* • - < - - 

repeat wit;: >: = 1 to numRounds .-, • . ' 

; put getp: -pat ( PageToShowList , x ) into, Level *. ; . 

• set Linei: ..t. = the number of lines i pf. field "Coaltaskl " ; 
PutUpCoa . 1 words level '".'/-.■ / / 

.put 'get : P: : -p ( PageToShowList, level ).. r.e turn; -into line- linenum of field "Coal Iscp re" 

• set Plain. \yle( lineNum, "Coal 1 score " ) ' ' 

• end repeat .-' ; ; if t ' ' ' ."' \ \ ■ '/ ' : " . 
PutUpViewpa^elof 3 Button ^ . . .:. " ; . • • ". : 

set gPageNum "= 3 • - . , \ - 

end • ;■ " . 



on PutUpCoa 11 words whicliLine . . : ' : / . 

set V^.ichLine = value (whichLine) 4 • / ' '* ; '. : ' 

put field ; "CCKeywords" into ^keywords 

set \ lineNum = the number of lines of field "Coaltaskl" 

"put item 1 of line. whichLine of keywords & return into line lineNum of field 
-Coaltaskl" / . 

.'•setPlainStyle ( lineNum ( "Coaltaskl".) , 

set lineNum = the number of lines of field "CpallContext " : • 
put- iter: 2 of line whichLine of keywords^ return into line lineNum of field 
"CoallContext " ' • ■■ i 

setPlainStyle ( lineNum, "CoallContext " ) . *. 
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end 



v ■ * + 



on putUpCoalEllipses whichLine ' 
global gcoallFields ' > ' 
repeat with x in gCoal IFields^ /, 

if X = "DataDate" then next repeat 
- put " into line whichLine of f'i^ld x 

put * . . .more. . . r into line whichLine of field x ; 
setPlainStyle (whichLine ;x ) . 
end repeat '* : . > . , 

end ' • ' 



.K 



< r 



t 



i . 
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Movie Script90:DisplayEggData . * ' 

on DisplayEggData . 

global gRecordDi splay , gWhiphUser, gSessionNum, gNextStart , gMoreBut ton , gMo reButt on loc 
put getEggBasket Data ( gRecordDi splay , gWhichUser) into dataList 

■_■>'-.' \ : " . ■ • ■ 

' set SessionNunis count (dataList ) '• • 

" " ' ■' • : ' - " ' . . . . • , • ' 

'. . * ■ • '■ - ■ ■ 

* - . '. - f 

putUpNavAr rows S-.sionNums - 



updatestage 



put getpropat (c<_-. aList, gSessionNum) into date 

• put getat (dataL. \. gSessionNum) into SessionList " - 

: here we neec: ■• see if the scores are all in the vowel game * 

: ie task. 1;. <r* . in the CV game-, ie ; task 2 or in a mix of the two games • \ 

so we need r .*,can the properties in sessionlist and check for' values ", , 

„ -- above and be. -w 30 - the last vowel game . 7 . . 

set levelListz - =, t -j; • . \ . . ' ■ 

set numRounds - count (sessionList ) 
repeat with x =. 1 to numRounds 

append level List . getPropat (sessionList , x) , ■ 
'end repeat '■ " " ' \ ' ' ' : 

■ ■ . . - ' " - • * • . T • 

• if max ( level Li; < .31 then --all vowels > . r •" 

go to* frame • r/Taskl " : • \ , - t . - ; 

PutU.pEggTask': ores (date, sessionList) ■ ." v. - 1 

end if 1 , . • . '_ ' . 

if Min( level Li... > 30 then r - all CV 

go to frame ' :gTask2 " - ". > ' 

PutUpEggTask. -ores (date, sessionList) : • •! 

-end if ; . . ... .' . •'. . . ■ / . .. - * •"' ' 

end .. ';. . ■ 1 ' 

on Pu tUpEggTask i : res date, sessionList i 

global gMgreEu ->n, gMoreBut tonLoc, gNextStart , gSessionNum, gOverRunSess'ion , gNumPages 
. global gPageNu . • '•• . - 

set gOverRunSv. :ion = [:] • • "-' 

set gNumPages • 1 

set gPageNum =. 1 ' • ' 

i " " r '■ 

' t ' ' r- a - * 

*.' - . ■ 

if the machineType = 256 then - ... . 

set OverRunLine =17 ■ 

else • ■ ' '*'/.. ' 

set overRunLine = 19 . , 

end if : 

set NumRounds count ; sessionList ) 

sendAwayViewPo ..-Button ' ' ■ * \ 
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; if numRounds <= (OverRunLine + 1) then • . / 

setaprpp gOverRunSession, date, sessi.priLi.st -- only need one sessionList 
set gNumPages = 1 
else break sessionList into 2 lists. 

set tempListl ~_ [ : ] . ■ ■ 

, set templist2 = l : J •'' . , 

"set templist3 = [] ; • ' ■ . . 

repeat with x = 1 to overRunLine 

r setAProp tempListl , getPropAt( sessionList ,xj. getAt (sessionList , >:) 
. end repeat r * "• 

" append' temp.list3, ! templistl " ' 

repeat with x = (overRunLine + 1) to numrounds ■ • 

setAProp tempList2 , get PropAt (sessionList , x) , getAt{ sessionList , x ) 

end repeat \ . ■- 

append templist3. tempi ist2 . t ■ 

setaprop gOverRunSession , date, tempList3 
set gNumPages = 2 ' - ' * . - * 

end if ' 



put date into line 2 of field "dataDate" ■ 
setPlainStyle(2, "dataDate") . : ■ • 

case' (gNumPages) of .:, - * ■ . i ' 

1 : ShowEggl Pagel of 1 

2 rShowEgglPagelof 2 V ; t ' • / ■ | 

end case , - ' ■ • \ . . . ' '.' . : 

end . ; • . . . . • . ' • 

on ShowEggl Pagel.ofl - - . V- ■*. ■/ .* 

global gOverRunSession ■ 

set PageToShowList = getAt (gOverRunSession,/ 1). ■ •> ■ 

set numRounds = count ( PageToShowList ) 

repeat with x = 1 to numRounds • ".■ 

put getpropat (PageToShowList , x ) : into Level 
•.set LineNum = the number of lines of field "Eggvowels" • -•• 
PutUpEggl words level ,; 
.. put get Prop (PageToShowList , level ) into scoreList 

; put getat (scoreList , 1 ) ^return into Line LineNum of field ." Egg 1 Di f f Score" 
setPlainStyle (lineNum, "EgglDiff Score" ) 

put getat (scoreList , 2) ^return into Line LineNum of field "EgglsameScore" 
... setPlainStyle ( lineNum, "EgglSameScore" ) 

end repeat ■. . 

end , ' ' 

on ShowEgg 1 Page 1 o f 2 

global gOverRunSession, 'gPageNum 
, set date =. get PropAt (gOverRunSession, 1 ) 

put date into lirve 2 of field "dataDate" 

setPlainStyle (2, "dataDate") 

putUpPglof2 text prompt 

set PagesToShpwList = getAt (gOverRunSession, 1) 
set PageToShowList = getAt (PagesToShowList , 1) 
set numRounds = count ( PageToShowList ) 
repeat with x = 1 to numRounds 

put getpropat (PageToShowList , x ) into Level 
set LineNum • = , the number of lines of field "Eggvowels" 
PutUpEggl words level 

put get Prop ( PageToShowList , level ) into scoreList 
- put getat (scoreList, 1) ^return into Line LineNum of field "EgglDiff Score" 
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setPlainStyle (HneNuin, "EgglDiff Score w ) 

put getat ( scoreList , 2 ) ^return into Line LineNum of field " EgglSameScore " . 
: - setPlainStyle.( lineNum, "EgglSameScore * ) .y- - ' ' . - 
end repeat' 

putUpEgglEllipses NumRounds + 2 • . . ; t • 

PutUpViewPage2of 2 -- Button- ' - • ' ' ■■' - ' 

. ' : ■ : . . '*"■•■. 

set gPageNum = 1 ;.. •.. ; 

end ' '■ •' . - • • : .'• , -. : : • ' ' • • ' 

on ShowEgg 1 Page2 o f 2 ' , .. ^ ■ . ' \ .. 

global gOverRunSession, gPageNum • • * 

set date = getPrb^t;{ gOverRunSession, 1); '■- 
put date into line 2 of field "dataDate" 
\ setPlainStyle (2, /dataDate;.)- ' ' v . \; - • 

putUpPg2of 2 text prompt 

set PagesToShowL i s t = getAt (gOverRunSession,. 1.) * V 

'set ! PageToShowList ■ = ■ getAt ( PagesToShowList ; 2) ' ;' Tt ' : ,■" 

. set ' nurnRpunds = count (PageToShowList) ~ , ' 

repeat with x = 1 to numRounds ., .. " 

'put getpropat ( PageToShowList r x) into Level- 
set LineNum = the number- of lines of, field "Eggyowels" 

PutUpEggl words ' level . .. , \ '[ . • .,: / '.•>< '.- . 

put get Prop. { PageToShowLis.t , level ) into scoreList, 

• put getat (scoreList , l ).&return into Line^ LineNum' of f ield . "EgglDiff Score" 1 
setPiainStyle(lineNuni/"Egglbif fScore") ' ^ :'- \ ; . " • ■ 

put getat (scoreList, 2) ^return .into Line LineNum of field "EgglsameScore" ' 
setPlainStyleflineNum. -EgglSameScore" ) ; '. ■■ .. 

end repeat : , ; ,' ; ' / _ . 

PutUpViewPageJof 2 "Button --.»• /. . 

set gPageNum = 2 f ; , 

end . •' ' ' " • 

* . t - . * i ■■».- 

i ■ . . ■ . ■ . ■ ■ - .. ~ ■ ■ 

- ."' ■■■ ■ ' : ■ • . -_ ' . _ . . < ..... ' 



on PutUpEggl words whichLine • - . • , ■} ; 

set WhichLine = value (whichLine) - . ; ' 1 : - * ■ 

put field "EggLevelKeywords" into -keywords \ ; 

set lineNum = the number of. lines; of field "EggTaskl" ■ : 

put item 1 'of line whichLine of keywords & return into" line lineNum of • field " EggTaskl " 

setPlainStyle { lineNum, "EggTaskl") - 

set lineNum = the number .of lines of field "EggVowels r 1 ' 

put item 2 of line whichLine of ^ keywords^ return into line lineNum of afield "EggVowels" 

setPlainStyle (lineNum, "EggVowels " ) '* 

end .'• • . ••• . • . • • 



on putUpEgglEllipses whichLine \ 
' global gEggTasklFields 

repeat with x in gEggTasklFields 
if x = "DataDate* then next repeat 
put " " into line whichLine of field x 
• put "...•.more..." into line whichLine cf field x 
se "PlainStyle (whichLine . X ) 
end" repeat 
end, ' - 
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Movie Script91;NewDisplayCatConData "•• 7 ; '*.; 

on NewDisplayCatcqnData 

global gRecordDisplay , gWhichUser, • gSessionNum, gNextS tart, gNumPages , 
gPageNum, gOverRunSession - \- , -\ 

'«■"'•.. * ~ . ... V' " ' 

' • ' ■ - - * 

, . v ■■ ■ . ■ ■-. ■ ' . . . ' 

-? - * * < * * 

set gNumPages = 0 . 
* set gPageNum =0 . ■, 1 

set gOverRunSession. = .[ : ].. ;. • . . - : % 

■ put getData (gRecordDisplay, gWhichUser,- 1) into 'data-List 

: - ? -." 1 ' 

set SessionNunis = count Wat aList) . . , : , 

■ 1- • . - 

putUpNavArrows SessionNums v . • . . . : ' 

• • . . ■ \ . ■ ■ ' ... : .-" - r 

if the machineType = 2 56. then : - . v - . ; • - '• 

set overRunLine =" 19 •'. . • . , : . • ' 

else • \ . , .-; . .. ■ 

• set- .overRunLine = 22 ■ . '; • 

end if ••' ' • ■> - • - • ■ . • 

upda tes tag e • ' . ' • ■. ■ ; - ( 

put' getpropat (dataList , gSe.ssionNuin) into date 

put get Prop (dataList , date) into SessionList , . — 

set NumRounds = count ( sessionList ) .' 

.Here we need' to look' at numRounds . and decide how many pages we will 
--'need to show the data. If- it's one then we ' re good , 1 i f two or three 
- -- : then. we need to break sessionList into pieces to feed into the 
■ 'display routines, and store those pieces. as a list of lists • 
in a'v property list with "date"' as property . 

, - ' ... - » - ' ' ■ 

if numRounds <= (OverRunLine 1 ) then 
■ se tapir op gi^erRiianSessiom date J.; sessionList only need, one sessionList 
set gNumPages = 1- ; . ' - . ' .,. 

else \ : ? i ■, . • " ■* ' : ■ _i ~" , v ;" ' v "■' 

if numRounds > ( OverRunLine • + 1 ) ' and numRounds <= ( (2*OverRunLine) +1) then 
-- split sessionList into two lists for each page. of. screen data 
; set 'tempListl .' = [ : ] ... \ ; ^ 

set templist2 - [:] 

set templist3 = [] : \ , : 

. repeat with x = 1 to overRunLine • . ; 

setAProp tempListl , getPropAt (sessionList , x) getAt (sessionList , x) 
end. repeat. • •' ' . " »" . 

append templist3 , templistl - • 

repeat with x = (overRunLine + 1) to numrounds ^ 
setAProp tempList2 , getPropAt (sessionList , x) , getAt (sessionList , x) - 
.-"end repeat . • . ; v " . 

append templist3 , tempi is t2 - ; 

setaprop gOverRunSession, date, tempList3 
set: gNumPages = 2 

else V. • 

if numRounds > ( (2 *OverRunLine) . + 1) their : % 

need three screens to show all the data 
. set tempListl = ( :] 
set templist2 = [ : ]' : ' , • .', 

' - , ' . - . . . ■ * ' ' ' ■ 1 . . 

* 1 * ' ' 
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set templist3 = [:] . 
set templist4 '= [.] ..* • 

repeat' with x = 1 to overRunLine ; 

set'AProp tempListl , getPropAt (sessiqnList ,x) ■ getAt (s.ess ionList , x) 
end repeat ;*- '.^ : ,; : * . ... V 

append templist4>- templistl ■,- 

repeat with x = (overRunLine .+ 1.) to overRunLine* 2 ; 
y setAProp t empList 2%getPropAt (sessionList , x) , getAt (sessionList , x) 
end repeat ',..\' : i ./«/' '. V 

append templistl, templist2 . ~ ' . * 

repeat with x -{ (2* overRunLine) +1) to numrounds 
• : ' . set'AProp tempList3 , getPropAt ( sessionList , ; x) , getAt (sessionList , x) 
•■■ end repeat : - . ^ 

append templist4 ; , templist3 • , ' 1 : 

setaprop gOverRunSession, : date, .tempList4 : 
set gNumPages = 3 ... " " " : " ■ 

•end if ■ .• ; . . • ' . - 

• end if ; .. ^ '. . . ' . ■ - •: . . ■. \ ■ ... v • ' , 

end if J. - ... : - • .. ... ; - - .• ■ '■ ... ,' 

< . ■ . - ^ „ • *■ 

put date into line 2 • of f ield "da t abate " : ' : .' - > ' I '■ " . . * '. 

set.piainstyle (2 , "dataDate.- ) • : >. . . \ . ' ' w ,- . V 

sendAwayVi ewPageBu t ton - •' ■ 

.- - ■ r- « ' . i * 1 i .1 

case ( gNumPages ) of > . - 

, 1 : ShowCa tConPage lof 1 •' - . ' ... "• * : ., . p . \ / 

2 :ShowCatConPagelof2 .• ] . , / = *■■ . . ' ■ 

3 : ShowCatConPagelof 3 • ; . 

.end.- case. - •- ' . . ' . *. 

end ■. • ". " '' v ' • - ■ • ' : \ . • 



on ShowCatConPagelof 1 ' . ' ; 

global gOverRunSession 

set PageToShowList = getAt ( gOverRuriSe^ sion , 1 ) 
set numRounds = count ( PageToShowList.) *, 
repeat with x = 1 to numRounds • 

. put getpropat ( PageToShowList ,x ) into, Level - V . ... 

set LineNum = the number of lines of field "CatconScore" .■• 
Pu tUpCa tConwords level" : . , 
"'put "get Prop (PageToShowList ,' level ) & return into line linenum of field "CatConScore 
setPlainStyle(lineNum, "CatConScore" ) , . - 

end repeat ' ' ., ' ■'<■ • : 

end '. ' '< 

on ShowCatConPagelof 2 .' • • '< • ' . 5 . . ;\ • 

.• global gOverRunSession, gPageNum . . j : , 1 - . * - 

set date = getPropAt (gOverRunSession, 1 ) • 

put date -into line 2. of f leld'- dataDate" ' • 

setPlainStyle{2, "dataDate") . • 

putUpPglof 2 text prompt - / 

set PagesToShpwList = getAt (gOverRunSession, 1) ' 

set PageToShowList '= getAt (PagesToShowList , 1.) ■ / 

set numRounds - count ( PageToShowList ) - . . 

repeat with x =1 to numRounds •• 

put getpropat ( PageToShowList /x ) into Level * ; 

set LineNum = the number: of lines of field " CatconScore " ' ■ 

. Pu t UpCa tConwords level-, * .. ( 

put getProp (PageToShowList , level ) U return into line ; linenum- of field" "CatConScore 

► -* / • , 
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setPlainStyle (lineNum, *CatConScore" ). ' " 

end repeat - -*' ' 

putUpCafcConEl 1 ipses lineNum + .1 " \ _ • . . '.• . ' .. 

PutUpViewPage26f 2 — Button"" "' J. : „ / '"../•• .V s - 

set gPageNum = 1 .... \ " "*■ • /' . t . ' . . V . " 

end : V ' '■ ■ ' "' ; .V- ' ■ •'> " . ' 

. L , * " * ■ * ** * - "* <■ ' 

op ShowCatCunPage2of 2 : . : • .-'^ . • . • ' • . "/ . , 

global gOverRunSession, .gPageNum . / . 

set- date . = . getPropAt (gOverRunSession*; 1 ) . • - 

. put date ' into line 2 of field -dataDate" -* ■ ■ ' ■ . " • v / ■''"'■ 

setPlainStyle (2, "dataDate') - 

putUpPg2of 2 . text prompt V ■ /„ ; '". \ ; \ • . : ' 

•set PagesToShowList = getAt (gOverRunSession, 1) . '* " ' '■« 

set PageToShowList = getAt (PagesToShpwList, 2) ' - .' 

set numRounds = count (PageToShowList) • 7 

repeat with x = 1 to. numRounds 

put 'getpropat ( PageToShowList ,x ) into Level '. 
. .set- LineNum ~ the number of lines' of field "CatconScore" - ; * ... " • 

.-. .PutUpCatConwords level ; v ; ' * . '■- 

put get Prop ( PageToShowList , level) & return, into line linenum of. field "CatConScore 
setPlainStyle ( lineNum, "CatConScore" ) ; . ? 7 . ! ' -i •" 

end repeat' - . : ", • • 

PutUpViewPagelof 2 1 Button > ( . " ;■■ • \ . 

'/set gPageNum 2 ./ ' % ; :'• '*'■'.' '. • .. ' .' 

end' . - •' ! • " - •" ■ '■ - - • • . .• • • ' 



on ShowCatConPagelof 3 ' '^' ' ; ' :• • • 

global gOverRunSession, gPageNum . ' - ' ; 

' set date = getPropAt ( gOverRunSession, 1) • . . ' . : 7 

put date into line 2 of . field "dataDate" •' . ' • 

setPlainStyle (2 dataDate*-) •'. . ' ..\ : ■ - \ ' ■• • ' " ... ',' ' . 

.putUpPglof3 --text prompt . — f - . _ \ 

set PagesToShowList' - getAt (gOverRunSession, 1) , : 4 ' ; : 

set PageToShowList = getAt (PagesToShowList, 1) ■ ' . 

set numRounds = count (PageToShowList) ; ' ■ , , 

repeat with ,x = 1- to numRounds .< . 1 :. 

put getpropat (PageToShowList, x ) into- Level . .'. - 

set LineNum = the number of lines of field- ^CatcgnScore" - . ' • * 

PutUpCatConwords level .. ./ . £ . .. \ 1 ■ 

• put getProp,. ( PageToShowList level ) & return into line linenum of f ieid "CatConScore 
setPlainStyle (lineNum, "CatConScore" ) '- : - • . v : 

. end repeat ' • - . •' . " . « - , . 

putUpCatConEl 1 ipses lineNum '+ 1 '"* :• . ... 

PutUpViewPage2of 3 ^- Button 

set gPageNum t ' ; : * . . • | \;' »' ;• • 

end ' ' ' " • '.' '-'■■ ' 

■-).'• V • •• « ...»-. . • • • • 

. - . ... ■ . 

'. ■ . . . i • ■ ■ i- . 

on ShowCatConPage2of 3 ' < . . • ~ " 

global gOverRunSession, 'gPageNum 1 '. '/ 

s^t date = getPropAt (gOverRunSession, 1 ) . ■ . / '. 

•put date into line 2 of field "dataDate - ; • 
' setPlainStyle (2 , "dataDate" ) ' - 

putUpPg2of 3 text prompt ' \ ■ ' 

set PagesToShowList = geUVt( gOverRunSession, 1) 
set. PageToShowList = getAt (PagesToShowList, 2) 

set numRounds - count (PageToShowList) ' ... • 

repeat with x = 1 to numRounds 

put getpropat, (PageToShowList, x ) into Level .y 

set LineNum =_ the 'number of lines of field "CatconScore" ' 

PutUpCatConwords level 
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put getProp { PageToShowList , level ) Sc. return into line linenum of field "CatConScore" 
- setPlainStyle ( lineNum,, "CatConScore" ) 
end repeat . \ f • 

pu tUpCatConEl 1 ipses lineNum t 1 .. 
PutUpViewPage3of 3 --"Button . 

• set gPageNum '= 2. ■. 

end • '• ' . ' 

• . . . ' ' ' ' . , -, " : • . ■ ' 

on ShowCatConPage3of 3 •, ... -. r 

• global gOverRunSess ion, gPageNum 4 :• . • . 

set date = getPropAt (gOverRunSession, I,) •*,.. . 

, put . date into line 2 of field •dataDate* ' " ; ' 
setPlainStyle (2 , "dataDate ■ ) . ""' ' ; 

putUpPg3of 3 —.text prompt '•- 

set PagesToShowList -.= get. At (gOverRunSession,. :1 ) , 

set PageToShowList = get At- ( PagesToShowList , 3) . . :. ... * ... 

set numRoundr. = count ( PageToShowList ) . 

repeat with x .-1 to numRounds ' ■ . '. 

put getpropat ( PageToShowList , x ) into Level - * •. 

set LineNum = the number of lines of field "CatconScore*. • v. ■;. 

PutUpCatConwprds. level • , . ; • ' .. . { . , ■ ■ 

put get Prop ( PageToShowList", level ) ; & return into line linenum. of j field "GatConScore" 
setPlainStyle ( lineNum, M GatConScore w ) - . , . . ' ' • ' . "'. t - 

end repeat . ■ . v" „ ■'• . ■ ., 

PutUpViewPagelof 3 -- Button /. 

set gPageNum = 3 - ■ ■■<.■ 




on PutUpCatConwords whichLine 

-' set WhichLine ; = value (whichLine) ; ■ 

put field * Ca tConKeywords " into, keywords., 

set lineNum = the number of lines of field "CatCpnTask" ' < . 

put item 1 of line whichLine of keywords U return into line lineNum of field \ 
. -CatCpnTask" ; ; : ~ ;.- . ' . ' 

setPlainStyle (lineNum, "CatConTask" ) '...'*.'. : ': ,, '•' ; 

set lineNum = the* number of lines .of field "CatConUni ts " • 

put item 2 of line whichLine of keywords & return into line lineNum of field. 
"CatConUnits" ' , ' : •: ' : . , • ' \ ' 

setPlainStyle ( lineNum, "CatConUnits" ) • . > 

set lineNum = the number of lines of field ^CatCpn Interval " 

put item 3' of line whichLine of keywords&& "see return into line . lineNum' of. field 
"CatConlnterval" 

setPlainStyle (lineNum, "CatConlnterval") 
; set lineNum = the number of lines of field "CatConTarget " . 
put item 4 of line whichLine of keywords & return into line lineNum of field 
. "CatConTarget" 

setPlainStyle ( lineNum, "CatConTarget") 

set lineNum = the number of lines of f ield "GatConFoils 

put item 5 of line whichLine of keywords & return into line lineNum of field 
"GatConFoils - V ' ■' . 

, setPlainStyle { lineNum, r CatConFoils" ) . .' : 

end 



on putUpCatConEllipses whichLine 

global gCatConFields; . 

■. • • . 
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repeat with x . in gCatGonFields 



if x = 
out 



DataDate" then next repeat 
■' into line whichLine of field x 



"A 



oatConscore" then .: : . .-, 

..more.-./" into line whichLine of field x 



more 



• if x = 
" put 
else- ... 
put . 

end if - ! ; . , . 

setPlainStyle. ( whichLine. x) 

end. repeat - 
end : • • 



.-into line whichLine of field x 
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Mov ; e Script92:BalloonData5/5/97. ' • ? ^- r , . ^, . ■ 

" • ' " * 1 i ' ■ * 

on DisplayBalloonData , < - ■ 1 • . \ - • 

global gRecordDi splay, gWhichUser, gSessionNum", gNextStart , gBailoonf ields , gBlinOb 
■ global. gCverRunSessipn; gNumPages , gPageNum . • 

. set gOyerRunSessipn = [.:] : ; ; 

set gNumPages = 1 . ' • ' ' ■• ./ .'. . 

set' gPageNum = 1 '• . • v. ■ ; * r '; ■ ■■ '. - : « 

put getData JgRecordDi splay, • gWhichUser, 5) into da taLi. °t retrieve initial data 

■ • ■ -. i • * . • ■ ..." ■ . - 

"set SessipnNums '= count (dataList ) ,/.. • ■ • ' , : " r 

-. putUpNavArrows Sess ioriNums , ' . :;- ' s -. * . 

if the machineType = 256 then • . • ,\ ■ _*/ *- . 

set overRunLine =17 ; 
: else \ ■ ' ' ' , . • • , • : , ( / • • • . . ■ 

' set overRunLine .- 20'/ ■ ■ ' " : 

. ( .'- s.et . pverftunLi-ne: = *.I7: - 'testing 1 • test-ing ! • chang'e \fc>^ck ! : 

end if • ' . •". . ••> ' ... V 



sendAwayVjiev/FageButtonV" ■ . / ' . ' 

— . . . .' ' .. ' . ■ . ■ - . . ■ .. . - - - 

put getpropat (dataList. gSessionNum) into date 
put getProp (ciataList , date) into 'sessionList * ' 

set NumR.ouncis = .count (session List) " 



- Here, we " need to look: at nuinRounds and decide how many pages we v/ili , 

- - need: to i-hov; the data . 7 f-. it *.s one then we * re good, if two. or . thr.ee 

then we reed to break 1 s ess iorxList 'into pieces,; to feed into the 
display routines, 'and store those pieces . as a: lis t of lists 

- - in a property list with; "date", as property ' / \ ' \\-.' 

... ..... . : . . ... .. _ ( , . _ • ^ . ; . . _ '■ ' \ - 

if n>.in\Rounds <-■ (OverRunLine + 1) then 

setaprpp . gOver RunSesil on. , date/ sessipnList only need. one sessionLisu 
■ set .gNumPages = .1 ' . ' . < ' : : ' 

else .. ' .- ■ \-. ; I V .' ;..';.» ^ - 

i f ^nuinRounds. > (OverRunLine + 1) and numRounds <= { (2*OverRunLir i c; > 1 1 ■ then 

- - split sessionList into two lists for each page "of. screen data - >: . 
. set tempListl = . [ :•] . • /. . . : ' . ' . • ''. 

set' tempi is.t2 = {:.] ..-■« - 

set . templist3, = .[.] " . ' - ' : . 

repeat with x = 1 to overRunLine,- • . 

setAProp tempListl . getPropAt (sessionList , x) , getAt (sessionList , x) 
end repeat ^ . - ■ ' t . ' . .; - . . • 

~- append templistS , ; templistl, ' . ■ ' . . . •/ 

repeat . with x = (overRunLine •* 1} to numrounds 

setAProp terrpList2 , getPropAt ( sessionList , x) , getAt (sessionList , x) 
end repeat * 1 .' ■ ;.' . 

; append templist3., tempi is t2 • ..• 

setaprop gOverRunSession, date. tempList3 
=•■■; set gNumPapes = 2 

else V* • :.' '" "'. . : '*. * • • 

if numRounds > ( (2*OverRunLine) .+ 1) then 
- need three screens to show all the data 
set tempListl •= (.:') /- : * ■'' 

set templist2 = '{ : ] "\ . ■ . .' 

set teimpl is t3 = ,[: ]. 1 • • •' " 
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• ;• set; tenplist4. = '[ ) • ■■' ■■\^ ' .. /-.. {;. ' ' , :- 

repeat with x = 1 to overRuhLine . -\ : .\\ .. .. "I ■. 

setAProp tejrpListl , getPropAt (sessionList ;x) , getAt (sessionList ,x) 
end repeat •.- - . . . • • • ' . * '< 

:\ ■ . append tempi i st4 . tempi istl...! A.- • ^ 

repeat with x (overRunLine + 1) to overRunLine*2. > 

setAProp ternpList2 i get PropAt (sessionList , x) , getAt (sessionList , x) 
. end repeat . • , _ ' . ; :. _ . -. 

. , append tempi is 1 4,. templist2 ■' ■ " ( - . 

. repeat with x = ( {2 * overRunLine) + 1 ) to numrounds 
' setAProp tempList 3 , get PropAt (sessionList , x) , getAt {sessionList . x) 
Vend repeat ' 'y '■ * y , ', , • 

append templist4 , . tempi ist3 : .■ • y ' 

setaprop gOverRunSession, date. tempList4 
..set gNumPages = 3 • ; 

end i f >• - ' ■ 

■ . > ' ' .if.. .. - - •.„•••. { . ■ » 

• ■ end if . «' ' [■ 

end' if . • ■ • , - ; ' . • • 

put date' into line .2 of field f ieldNum (gBl lnob, # da taDate) . • 

setPlainStyle(2, f ieldNujn(gBllnbb, #6>tamte) ) ■ . ' : / 

case (gNumPages) of ; ' 5 ... . . . ' : ' \v , . 

■ 1 :ShowBal loonPagelof 1 . < . ' ; y.\" V ; * -. \ '■ 

2 :ShowBal loonPagelof 2 ' •. • • • 

3 tShowBal loonPagelof 3 ' ; ;• • . ' ' ■ \ *• 

'end case ' y •• ' : y .; : : " .' . : . " ' r . ..." ' •. . 

end .. " ' ' • ' . '/ ■ " • r. -' ■ *■ '• - ' ■'" •• - • ■ ■ 



* ? * . 

V 



or S howBa 1 1 ob n Pag e 1 o f 1 ; 

global gOverRunSessioh v • . ' ... .. ' . : , 

set PageToShowList - getAt { gOverRuriSession, 1) r . T 
set inumRounds = count ( PageToShowList } , ' . . ■■ 

repeat with x ..-.=' 1 " to numRcunds * ' . , V 

put getpropat ( PageToShowList , x ) into Level ■ i. 

F>utUp Salloonwords (level / X + 1 1 --2nd pa ram is what lineNum to put text on 
put getProp (PageToShowList, level) & return into line x +1 of field 
f ieldNum(gBllnob. «BalloonScore) ' ' . , ; ' , ]\ V : • ' ' 

setPlainStyle (x , f ieldNum (gBl lnob, #Bal loohScore) ) . 

* * . •■ ■ •. . • . ■ « > . , • ■ 

end repeat " : ,- ' 

end ' -, ; l " • - ■ „..•.•_.;.-•_ ' - : .. ; ,y 

on ShowBa'l loonPagelof 2 / . ' .. ' 

global gOverRunSession, gPageTMm , ; ' u • . - 

.. set date = get PropAt (gOverRunSess ion. 1) / . ' ■ 

put date into line 2 of field f ieldNum (gBl lnob, fldataDate) 

setPlainStyle(2, f ieldNum (gBl 1 nob. #dataDate) ) 

putUpPglof 2 .r- text prompt M " t • •: .. 

set PagesToShpwList = getAt (gOverRunSessipn. 1) . . 

set. PageToShowList = getAt. ( PagesToShowList , 1) 
set numRounds , = count ( PageToShowList ) 

repeat with x.*= 1 -;to numRounds .' * . 

put getpropat ( PageToShowList . x ) into. Level 

, Pu t UpBa 1 1 oonwor ds (level, X + 1 ) 2nd param is what lineNun to put text on 
put, get Prop ( PageToShowList.: level ) &, return into line x +1 of field; 
f ielcjNum (gBl lnob. #BalloonScore) - / / • ' 

set PlainStyle(x +1. f ieldNum (gBllnob. ttBalloonScore) ) , 

end. repeat ' " ' . 

. put UpBa 1 1 oonEi lapses NumRounds > 2 ■■ |f : . 
PutUpVi'ewPage2pf2 ^ - Button . * • ; '■ . ' - ' ' ' ' 4 - ' 
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set gPageNum = 1 . .. ; 

. - •• . . • ' - . . 

end • •• .- V . 

• ' • .• - ,. . i . • . , . •■ • . • ■ ; ' 
on ShowBalloonPagelof 3 " • ; , . - * " . 

.global gOverRunSession, gPageNum • . : 

set dace : = getPrgpAt (gOverRunSession, 1) V 

put date into line 2 of field f ieldNum (gBl lnob, #dataDate) 

setPlainStyle(2 r f ieldNum{gBllnob, #dataDate) } • .' ' ■ 

putUpPglof3 — text prorrpt . .' 

set PagesToShowList = getAt (gOverRunSession, ■ 1 ). ; 

set PageToShowList = getAt (PagesToShowList, 1) './ . 

set numRounds == count (PageToShowList) , • 

repeat with x =1 to numRounds . • . 

put getpropat ( PageToShowList', x ) into Level / 

Pu t UpBa 1 1 oonwords (level, X + 1 ) 2nd f pararo is what lineNurn to put text, on 
put get Prop (PageToShowList . level) & return into line x +1 : of field 
f ieldNum (gBl lnob, #Bal loonScore) '\.V 

setPlainStyle (x + lvf ieidNum(gBl I-nqt. # Bal loonScore ) ) . . ; r ' 

end repeat - . ' • " . \ ' ; • * - •. . . •'/ 

. putUpBalloonEllipses NumRounds + ?. ■ ■ - ' . 

- PutUpViewPage2cf 3 Button „ - '.' 

/ set gPageNum = 1" v . ' ■ 

•"end I '- '•• •; ' : .' • " . .'. 

on ShowBallqonPage2of 2 

global gOverRunSession, gPageNum - ■ , - •" , '■ , ' 

set. date' - ' getPropAt (gOverRunSession, 1 ) . ' - 

put date into line 2 of field fieldNum(gBllnob;#dataDate) , ; ... 

setPlainStyle (2. f ieldNum (gBl lnob, tfdataDate) ) ... 
putUpPg2of2 text prompt 
. set PagesToShowList = getAt (gOverRunSession, 1 ) ' • 

set PageToShowList = getAt (PagesToShowList, 2) 
set numRounds = count (PageToShowList) 

repeat with x = 1 to numRounds •' . *; " / , 

put getpropat (PageToShowList , x ) into Level - 
. Put UpBa 11 oonwords (level, X + 1 ) 2nd pa ram is what lineNurn to put text on 
. put getProp • (PageToShowList , level) & return into line x +1 of field ' 
f ieldNum (gBl lnob; #Bal loonScore) • , • .' 

setPlainStyle (x + L, f ieldNum (gBl lnob ; # Bai loonScore ) ) ■ " ' 

end repeat. , ■ . • . / '■■ > 

PutUpViewPagelof 2 -A. Button ; * • 

■ * \ . • v" ' ; : "\ '" ' ; v \ ' *■ . . , .' 

set gPageNum = 2 . •/ v. . :. r 

end ■ * - - : . • ; . • ' • ' ;. '■ . ^ 

• * • - » . ■• I - ■ -i ii , . . 
on ShowBal loonPage2of 3 . ; * . ; . - 

, global gOverRunSess i on , gPageNum 
set date = getPropAt (gOverRunSessiori, 1 ) .. ! 
. put date into line 2' of field f ieldNum (gBl lnob, #dataDate) 

setPlainStyle (2, f ieldNum (gBllnob, #dataDate) ) : * 
putUpPg2of3 text prompt , - 

• set PagesToShowList = getAt (gOverRunSession. '. 1) . . ■ ,.. ■ 

set PageToShowList = getAt (PagesToShowList. 2) 
set numRounds = count ( PageToShowList ) .. 
repeat with x = 1 to numRounds \ . '* \ 

put getpropat (PageToShowList ,x ) into Level . . 
: "Put UpBa 11 oonwords (level, X + 1 ) - - , 2nd pa ram is what; lineNurn to put text on 

put getProp ( PageToShowList , level ) & return into line x . + 1 of .field 
f ieldNum (gBl 1 nob. #Bal loonScore) 

- setPlainStyle (x +1 , f ielo^Jum (gBllnpb, ttBalloonScore) ) 

■*" ■ ■■ * i ■ * * ■ • * •, 

- ■ . ■ ■ : .'*'-""' . ■. 
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end repeat J 

pu tUpBa 1 1 opnEl 1 ips es NumRounds +. 2. 
PutUpViewPage3of 3 . Button 

set gPageNum = 2 

end ' 

i ■ 

on ShowBal loonPage3of 3 ", . • 

global gOverRunSession, gPageNum .. 
set date = getPropAt (gOverRunSession, 1 ) 

put date into line 2 of . field fieldNumigBl Inob, #dataDate) 
setPlainStyle(2,,fieldNuni(gBllnob / #dataDate) ) 
putUpPg3of 3 — text prompt * 
set PagesToShowList = getAt (gOverRunSession, 1 ) • ■ 
set PageToShowList = getAt . (PagesToShowList , 3) 
set nuniRounds = count (PageToShowList) 
repeat with x = 1 to numRounds 

put getpropat (PageToShowList, x )• into Level 

PutUpBal loonwords (level, X + 1 ) 2nd par am is what lineNum to put text 1 

put getProp ( PageToShowList , level ) & return into line x +1 of field 
f ieldNum(gBllnob, #BalloonScore) ; 

setPlainStyle (x +1, f ielo?Qum(gBllnpb/#BalloonScoreV} • 
. end repeat . . 
PutUpViewPagelof 3 . Button v 

set gPageNum = 3 * 

end ' _ ■ ' 

on PutUpBal loonwords whichLine, lineNum 
set WhichLine = value (whichLine) 
put field " Ba 1 1 oonKeywords " into keywords 

put item 1 of line whichLine of keywords 5c return into line lineNum of field 
f ieldNum(gBllnob, IBalloonTask) 

setPlainStyle. {LineNum, f ieldNum(gBllnob, #BalloonTask) ) 

put item 2 of* line whichLine of " keywords & return into line lineNum of field 
f ieldNum(gBllnob, #BalloonNumber ) . ' _ 

setPlainStyle (LineNum, f ieldNum(gBllnob, #Ballo6nNumber ) ) 

put item 3 of line whichLine of keywords & return into line lineNum of field 
f i aidNum(gBllnob, #BallponStimType) 

setPlainStyle (LineNum f ieldNum(gBllnob, #BallopnStimType) ) 

put item 4 of line whichLine of keywords & return into line lineNum of field 
f ieldNum(gBllnob, # Balloon Vis Display) 

setPlainStyle (LineNum, f ieldNum(gBllnob, #BalloonVisDi splay) ) 

put item S of. line whichLine of keywords & return into line .lineNum of field 
f i e ldNurr* ( gB 1 lnqb , # Bal loonNoise ) 

setPlainStyle (LineNum, f ieldNum(gBllndb, #BalloonNoise) ) 
end 

i 

\ ■ , " ■ , ■ " T ' 

on pu tUpBa 1 loonEl 1 ipses whichLine 
. global gBalloonfi elds 

repeat with x in gBalloonf ields 

if x = "dataDate" then next repeat , 
put " " into line whichLine of field x 
put " . . .more. . . " ii :> line whichLine of field x 
setPlainStyle (whichLine, x) v. 
end repeat 
end • . • 
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Score Script93 



on mouseDown- 

global gPageNum, gNumPages 
if legalButtonHandler ( x 

cursor 4 
' if gPageNum = 1 then 
initeggl fields 
initEgg2Fields ' 
showEgglPage2of2 

else • ' 

initegglf ields 
initEgg'Fieids 



then 



end if 
cursor -1 

exit 
end i f 
end 



. —on rnouseDown 

global gNextStart 

' \ if legalButtonHandler 0 then 

I.-- ... cursor 4 

if gNextStart > 0 then 
__ initegglf ields 

■„". initEgg2Fields 

pu turgor eegglData 

. ; set gNextStart = 0 

- - • ■ r . 

else ■• : : 

'„''■• initegglf ields .; 

initEgg2 Fields '.- : 
1- \ displayeggdata 

-1 ; end i f / 

cursor -1 

end if 
--end 
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on exitFrame 

• ' . . cursor -1 

checkDataPrintButton 




■A 
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Movie Script96 . . . ' • ' 

' • ' ^ EoqTaskl data fields of all but first Line ' ; 

if tot yS?n e (gGa^sViewedList, #eggl) then . 

p Ut - - into field thisfield . _ ._. • ' ... '.. : 

• St the fontStyle of field th xsge Id . J J p 

set NumLines = the number of il. nes f£ •,. . 

set ttefont of field thisfield.= ^eFont 
' Jet the fontsize of field thisfield - ,.12 • .... . . :- ' 

• * ... ■ • ',. 1 ■ ,-, 

case (thisField) of ■ • - /■ ... . . ' 

' . •, -DataDate-: Put -Pate:- xnto text .j_ ■■ .. . ■ 
■ -EggTaskl'tPut "Task (1)=; into text ... 
: ; .Eggyowels\:PUt -Vov^ls- ^.^^.^o^ & s -Cuml. Score:- into 

' --EgglDiff Score': Put Quote ^.^?^te &£. "Cuml. Score:" into text 
•EgglSaineScore" :Put Quote & Same <-VU° te 

end case , • , n f field thisField ■ 

put textk.Return into line P ™S thisfield = - un derLine" ; , 

^ t t he fontStyle of line r of .field thislieio. , 
set tne iont * Hn s . o£ field thisfield 

delete line 2 to nuiiume:* ui . . , 

2t ■ " INTO LINE 2 OF field thisField . • . . , ; : . 

. ; setPlainStyle( 2. thisField) . : ' ' . 

. -. end repeat . . - : ■ • 

' set NumLines '= the number of lines OMWW 

SSeteline2 to-numlines of /^ fehxsfield , , 
' ■ ■■ put " " INTO LINE 2 OF field thisField . ; . . . r 

setPlainStyle (2, thisField) ">'/./. J. ,': "' ' 

end repeat , ". . ■■' , 

end if • .' 

. . - ■ . • • , •• - . .• ' 

... , t . . . ^ . . . . ... . . ., 

.end . -' * . : ; . . - ' ' .- . / \ 



4* t 
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Movie Script 100:CoalFieldlnit \ '". 

on initCoallFields - *\ • . w 

global gCoallFields, gGamesVie^edList , gTheFont .: • . 
if not getdne (gGainesViewedList , #Coall.) then •* 
append gX^amesViewedList , fcCoall 
repeat with thisfield in gCoallFields - 
.put \v " 'into field thisfield' •• ; . 
set NumLines = the number of lines of field thisField 
set the font of field thisfield = gTheFont 
set the fontsize of field thisfield = 12 ' 

. ' set. the f ontStyle of line 1 of field thisfield = "underLine 
case (thisField) of .' ■". 

•DataDate" -Put "Date: \ into text - ' 

"CoaiTaskl " : Put "Task ( 1 ) : " into text , 

set the rect of member thisfield = rect (0, 0, 412, 336) 
" Coal IContext" : Put "Context- "- into text - . ' . 

set the rect of meinher thisfield .= rect (0, 0/403, 336) 
"CoallScore" : Put r Cuml . Score: " into text 

set the rect of member thisfield - rect (0, 0. 95, 336) 

■ .end case . .. . ; . . ... 1 

put text into line 1 of field thisField ' 
set the fonts tyle of line 1 of field. thisfield •= "uxiderLine"' 
; delete line 2 to numlines of field thisfield , . ' 
put . " " .INTO LINE 2 OF field thisfield 

set the fontstyle of line 2 of field thisField to "plain" 
end . repeat . '• ■ ■ 

else " ■ , . ■■ '.. •, • ■ •, , ■ ' . . .' • 

■ repeat with thisfield in gCoallFields 

set NumLines = the number of lines of field thisField 
if line 2 of field thisField = " - then next repeat 
. delete line 2 to numlines of field thisfield. . . 1 

. put " INTO LINE 2 OF field thisField ; ' \ 

set the fontstyle of line 2 of field thisField to "plain" 
end repeat • - , . \ 

end if ' . " ' " ' . ... *:' . V , • ' . • ' 

end . - • ; '•; '•>;'•.. ' . . 

on ini tCoal2Fields . i - • ' ' ' . ,j ■ • ■ " ' . \ 
global gCoal2Fields, gGamesViewedList , gTheFont 
if not get One (gGamesViewedList, #Coal2) then' 
append gGamesViewedList, #Coal2 . . 
repeat with thisfield in gCoal2Fields 
put " " into field thisfield 

set the font of field thisfield = gTheFont ' 
. . set the fontsize of field thisf ield ~ 12 , •: - 

set the fontstyle of line 1 of ;field thisfield - "underLine" . / 
case (thisField) of ; 

■ ' ' "DataDate" : Put "Date: "' into text * ' .' 
. >• ■ "CoalTask2" : Put "Task (2) : " into text - 

f : Coal 2TargPho": Put "Target Phoneme: " into text 
*' ,! "C6ai2Score" : Put "Cuml . Scores: * into text 

end- case ■ ( ■ - 

■ " put text into, line 1 of field thisField •' 

set the fontstyle of. line . I of field thisfield = "underLine" 
put " " INTO LINE 2 OF field thisField 

; secplainstyle(2. thisField) ■ 
end repeat • . ' \ , •. 

. else . .... ' ' • ■ ': 

' repeat with thisfield in gCoal2Fields ! 

' i - ■ 

' \ ' ■ . » 1 - ■ ■ . 

' * • • 
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1 L rt f ■■■li'nM of field thisField 

set NumLines = the number of tT -^then next repeat 
if line 2 of field thisFaeld - then ^ ^ 

delete line 2 to nuihlines^f : f xel#_thi|f ield ; 
put - • INTO LINE 2 OF field thisField 
setplainstyle (2 , thi sField) \ . " : ; - 



end repeat 
end i f 
end 



Script of Cast Memberl 02:EggBasket-2 SOS - 




Movie Script 104 



on 



repeat with x - 1 to 56 ■ r field - C CLevel Keywords" 

. ; put x &Sc. word 2 of item 1 of line x or . \ ; 

end repeat - > . 

^t^^iteJ "of line x of field -C^vel Keywords' ^ : . , 

end repeat' . . ) 1 ■ ' . ; " 



end 



■2 



1 ■ -. I 



I J 
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Movie Script i07:selFie!dRectScript 

* . ' ' . A. * 1 

ori setFieldRects . ' 

'— hardwire- all field rects so that they dont 
lose their sizing 

— — ■ calls other handlers per screen' 

set the rect of member "specifics" = . rect (0, 0, 506, 80) 
set the rect of member ■ specif icsTitles" = rectiO, 0, 200, 100) 
set the rect of member. "nextBut" = rect (0, 0, 98. 13) ■ 

— set. the rect of member "prev3ut" = rect (0, 0, 107, 13) 

- r ' set the rect of member "ShowMoreButton" = rect (0, 0, t, 107 , 13) 
setEggRects . • . 

s e t RapTapRec t s 

setCoalRects . v 

setCatConRects 
setBal loonRects 
setRTrects . 

end ' • 



on setEggRects 


. set 


the 


rect 


set 


the 


rect 


set 


the 


rect 


set 


the 


rect 


set 


the 


rect 


set 


the 


rect 


set 


the 


rect 


set 


the 


rect 


set 


the 


rect 


set 


the 


rect 


set 


the 


rect 


set 


the 


rect 


set 


the 


rect 


set 


the 


rect 



of member "EgnBasket-1 SOS " = rect {0, 0,608, 70) 

of member "DataDate" = rect (0, 0, 539, 32) 

of member "EggTaskl" = rect (0,0, 473, 304) 

of member •EggVowels" = rect(0, 0, 52, 304), 

of member "EgglDiff Score" = rect(0, u, 141, 304) 

of member " EgglSameScore " = rect (0, 0, 129, 304) 

of member "EggBasket -2 SOS" = rect (0, 0, 633, 96) 

of member "Da taDate" = rect(0, 0, 539, 32) 

of member "EggTask2 * = rect (0, 0, 473, 272) 

of member "EggDuration" = rect (0, 0. 68, 272) 

of member "EggAmplif ication" = rect (0, 0, 112, 272) 

of mend^er "EggSteps" := rect (0 . 0, 88, 272) 

of member "Egg2Di If Score" .= rect.{0, 0, 121, 272) 

of member " Egg2SameScore " = rect ( 0 , 0, 132, 272) 



end 



on s e t RapTapRec t s 

set the rect of member . * RapTapl SOS" = rect (0,0, 608, .56) 

set the rect of member "RapTap2 SOS" = rect (0,0, 629,42) 

set the rect of member "DataDate" = rect (0, 0, 539, 32). 

set the rect of member " RapTapTaskl " = rect ( 0 , 0, 473, 224) 

set the rect of member. "RapTaplUnits" = rect (0, 0, 473, 224) 

set the rect of member "RapTaplStimu} us" = rect(0, 0, 473, 224) 

set the rect of member " RapTapl Interval ' = rect(0, .0, 473, 224) 

set the rect of member • RapTapl FeedBack " = rect(0, 0, 83, 224) 

set the rect of member "RapTapl Score* = rect(0, 0, 75, 224) 

set the rect of member "RapTapTask2 * = rect(0, 0, 473, 96) 

set the rect of member "RapTap2Units" = rect (0, 0, 473, 96) 

set the rect of member "RapTap2 Stimulus" = rect (0, 0, 473, 96) 

set the rect of member "RapTap 2 FeedBack" = rect (0/ 0, 124, 96) 

set the rect of n^embei "RapTap2 Score" = rect(0, 0, 75, 96) 

t . . t 

•' ■ -. » 

end •" •. , * ,.«■■'. < 

on setCoalRects 

set the rect of member "Coal-Carl SOS* - rect (0, 0, 554, 48) 
set -the rect of member "Coal? SOS" = rect (0, 0, 554. 48} 
set the rect of member "DataDate* = rect (0, 0, !539, 32) ; 
set- the rect of member "CoalTaskl* = rect (0, 0, 412, 336) 
set the rect of member "Coal 1 Context " = rect (0, 0, 473, 336) 
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set the rect of member 
set: the' rect of member 
: set the rect of member 
set the rect of member 
end 



CoallScore" = rect (6, 0, 95, 336) 
CoalTask2" = rect (6, 0, 412, 320) 
Coal2TargPhor = rect(0, 0, 113, 320) 
Coal2Score*. = rect(6 f 0, 87, 320) 



on set Ca t ConRec t s 
. set the rect of member 
set .the rect of member 

set the rect of member 

•. ■ ■«■ . • 

set the, rect of member 
set the- rect of member 

•t -4 

set the rect of member 
set the rect of member 
/ set the rect of member 



Caterpillar Connection S0S" = rect (0, 0, 
totaDate" .= .rect(0, 0, 539, 32) 
CatConTask* =. rect ( 0 , 0 , 7.2 , 336) 
CatConUnits" = rectCO, p, 81, 335) , 
CatConlnterval" - rect(b,0, 58, 336) 
CatConTargef = rect (0, 0, 104 , 336) 
CatConFoils" = rect(0, 0, 58, 336) 
CatConScore" = rect(0, 0, 77, 336) 



554, .32) 



on setBalloonRects 



set the rect 
set the rect 
set the rect 
set the rect 
set the rect 
set. the rect 
set the rect 
set the rect 
end . ' 



of member 
of member 
of member 
of member 
of member 
of member 
of member 
of member 



-Balloons SOS" = rec.t<0, 0, 608, 48) 
-DataDate- = rect (0. 0. 539; 32) 
"BalloonTask- = rect(0, 0, 285, 304) . 
"BailooriNumr*?r" = rect ( 0 , 0, 58, 304) 
^ Ba 1 1 oonS t imTyrx? " = rect(0, 0, 189, 304) 
",BalloonVisDisplay" = rect (0, 0, 165, 304) 
"BaUoonNpisev .'"= rect (0, 0, 285, 304) 
• BalloonScore = rect (0,0, 7.7 , ' 304)' 



on setRTrects ; 
set the rect of 
the rect of 
the rect of 
the rect 
.the rect 
the rect 
the rect 
the rect 
the rect 



set 
set 

• set 
set 
set 
, set 
set 
set 
set 
set 

end' " 



the rect 
the rect 



of 
of 
of 
of 
of 
of 
of 
of 



member "Rhyme Time SOS2"= rect(0, 0, 605, 48) 

member "Rhyme Time SOS 1" = rect ( 6, 0, 630; 32) 

member "DataDate"> rect(0, 0, 539, 32) 

member "RT Task (3.) " = rect (6, 0, . 285, 112) 

member " RT InSetOf " ■ - rect ( 0 , 0, 83, 112) 

member RT BgNoisel " = rect (0, 0, 116, 112) 

member "RT- Score 1 • '= rect(0, 0, 85. 112) 

member -RT Task (2) ^ = rect (0, 0, 337, 128) 

member "RT responseChoice " = rect(0, 0, 12C, 128) ' 

member "RT 3gNoise2" . = rect (0, 0, 116, 128) 

member "RT Soore2* =■ rect (0, 0, 85, 128) 
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on checkEggKeyField ' 

repeat with x =1. to 30 ; 
;'put x && item 2 of line x of field 

end repeat 
end 



EggLeve IKeywor ds 
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Movie Script 110 < r . : ; , . 

" ' ■■ •" ' ' • \' - . • ' . , .' . 

- « " .. .. _ ' ... i .. , 

on replace : \ . *' 

repeat with x = 58 to 86 . . • 

put * /ra-la/ / into word 2 of item 1 of line x of field "egglev^l Keywords*; 
end repeat \- . *\ r v ■• V ' 

repeat with, x =. 87. to 115 ■ . ■ ' • ( • 

put '/ma-na/' into word 2 of item 1 of line x of field " egg level Keywords * 
end repeat • '• ,• ' • • .,; .' .: , ;V ■ • 

end •• . v. ' • .-. '• . 1 "". • •; 



1 v 



; Score Scriptl 13 



on- ex it Frame • '• ... 

MakeVisRapTapSprites — special case from RapTap task 2 
- puppe t Bu 1 1 onSpr i t es true 

spritesonlist [28] : ,, '• 

end , \ : ■ . ' . '*" ., \ ■> 



1 



I 
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on exitFrame v ■ - . " 

MakeVisRapTapSprites special case from RapTap task 2 
puppet But . onSpri *: -»s true . , 4 
cursor 4 ." . - 

initEgglFields . , ' ". 

' ini tEgg2Fields • . . , • 
displayEggData . 

- ... ■■ . • i ..-..}■ 

end' • , ' • *: ; ■' 



- < 
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Movie Scriptl 17 

: , . p^oRaskef s data fields ql all but first 

on initEggFieids -- empty EggBasket s oau . . .. 

;;;;; Z tSSSffififc u^a^^u^ ■ >"***^;- . 

case (thisField) cf ; ^ . \ , ■. - . 

"DataDate": Put "Date:" into text 
-EggTaski" : Put "Task :" into text _ 
-EggVowels" :Put "Number: V into text _ text < : \, 

EqglDiffScore" :Put : -Stimilous Type . ^ inc 
^" - -rPu.t "Visual Display:" into text 



Line 




put text into lino 1 of. ^JVSf Afield 
■»■ delete line 2 to nrirdines of field thisfieia . . 

put - . " INTO LINE 2 OF field thisField ,, 

set the f ontstyle of line 2 of field thisField to, -plain"' 
'.'end repeat '* . : 'v\ : ' • . -. • .-. . . 

end , '' , • - v • 
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- * ' • 1 



on initEgg2Fields start '■ empty EggTask? data fields of all buu first Line 
global gEggTask2 Fields,' gGamesViewedList gTheFont ■ • 

if not getOneigGairvesViewedList ; #Egg2) then 

append gGamesViewedList . #Egg2 . .;. . ' \ . '• : ' ' . :■- 

repeat with thisf ield in gEggTask2Fields 

put - into field this field . . ' :-■'.:] , .. /"-<•'. 

set- the fontStyle -of line. 1- of field thisf ield = "Plain* \ 
set/the font of field this field = gTheFont 
set the. fonts ize /of field thisf ield = 12 

ease (thisField) of : ' . :\ ■' ■/ • • 

"PataDate* : Put 'Date: " into text ' • ' ■ ' ■ ', 

"EggTask2" :Put "Task (2) : " into text ' '. ' ■ *' ';. ' ■ : : • 

"Egg Duration" : Put "Duration : ■ into , text V ••• - r 

"EggAnpli'f ication" '■: Put *Aitplif ication.: " in text 
"EggSteps" :Put "Steps into text , ,*"-'■' ; 

"Egg2Dif t Score " : Put Qi'.dte & "Di f f . •&Quote "Gum! . Score: * into text 
' fc Egg2SameScore" : Pur Quote &*Sa™e"&Quote .&& "Cund .' Score:" into text 
end case . * ' • " •: " : > . ."' 

' put textireturn into line 1 of field thisField . ■, 
. . ' set the fontStyle of line 1 of .f ield thisf ield = "underLine". 
/ put " " INTO LINE 2 OF field thisField ' >•'•"'. -V v- . 

' setPlainStyle(2;TiiisField) . ; .V.\- 1 . . : ' • 

, end repeat - > . ! • ' ' '. . '. ■ } , '-• ' " ■ \- 

• : ' else • ,■■ •'• - ' .'i , • ' ' - ' . - . '"• . " ■' v - 

repeat with thisf ield in gEggTasK2 Fields ; - ' . ■' / , '. ' \ ' 

set NumLines " - the ; number of lines of field thisField • . .• 

if line 2 of field thisField = . * "then next repeat 
delete line 2 to numiines of field this field 
' ■■ -put " .> INTO LINE 2 OF. field thisField " ; / 

. • setPlainS.tyle (-2, ThisField)' • •.. ' • v - \ ' : ' ' ■ ," 

; -. end repeat \ V- ■ "'' . ' • • . . .' '• 

end if - : " :- - ■ ■ , ; . . .. , -'. ■ 

end- ••• • : . • • 



r 

. > 'J 1 
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Score Script 11 9 , 



;on' mouseDown '• , . . - '■' \ n, 

g lobar gSessionNu™ ' , . - biank : arrow - \ s up 

' if BlankArrowO t^h -exrt ^ 
if legalButtooHandler ( ) then t • 

' . S et gSessionNuni =- gSessionNum - 1 _ : .. 
' go to ficme "Basket" Full of /Eggs , Data ■ ^ >" 

end if; . . ■ > ' • ' . v , 

■end . ..." . ■'" ; . . . . 



r : : 
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• , i . . 



i- - 



V" " : 
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Movie Script 122:DisplayRapTapData ;. • . • . ' 

■ - ■» ... r . 

on DisplayRapTapData . ' ' .' ' Wle i; dSessionNum. gTask2Sprites. gRapTapKeyWords ; 
global gReeordpisplay. gWhichUser : r _ LevelKeyWords . into gRapTapKeyWords 
if VoidP (gRapTapKeyWords) then put field K»pi V 

■ ' ■ 1 \ . i '* " ^un-i i r-Vi'n<?er" 4) into dataList 
. put getData ( gRecordDi splay, gWhichUser, , . , , 

set SessionNums = count (dataList)' " - / ,.: . Y '.V 

putUpNav Arrows f -ssionNuins , • 

MakeVi sRapTapSpr i t es - m .. - . 

' * • •■ * . - 

■ updatestage _ _ • . ^ .^^j ir.to date N"' ' ." ' -. 

put getptepattaaWU.-t, 9 • ; _ seS sienList .. ..- ; -• 

nut qetProp dataList ..date) m«- u , . 
: gut date into line 2. of field "datapath . .• 

' s etPlainStyle;2;"dataDate"> . ' -. 

set NumRounds = count (sessi onLi st) 1 . 

set Taskl = 0 ',. _ • ' ' 

set task2 - 0 • . - ' . ■- ' 

repeat with x ? . 1 to numRounas • } ' 

put getpropat (sessionList x into ^ d . RapTa p 1SGOre - 

■ ^"alu^n <, .PH ^'^f^ Sfiine linens o| H.-uT. . 
put getProp (sessionList, level) * ..ret 

' ^"'setlliinStyle , lineng* . " R*pT»plS=o«- 1 

' ■ ,'». • «»i*?Kfff3fe' few ^ «f 

put getProp (sessionList, leven * ^ 

"^^seSaihStyle ( linenum2 . - RapTapS Score' ) V ! - - ., 

set task2 =1 • . 

*: ■ end case : ' '■ • 



end repeat - - ) then - both tasks must be displayed 

if the machinetype = 256 then . _ l5 

set NewTop = (the bottom of sprite 11) ^ 

el S et NewTop = (the bottom of sprite U) - 8 . 
- — mac needs, less space .... 

end if • . . . ' 

^ set NewTop = ■ (the bottom of sprite 11) ' 8 

sec the lot of sprite 30 = point (69, neWfop). / 
■ set the loc of sprite 31 - point (1 55. newTop • 

set the loc -of sprite 32 = point (270. nev/Top , , . 

set the loc of sprite 33 = point (400. newTop 
Tel the loc. of sprite 34 = point (553. newTop) 

S d Taski =1 and task2 = 0 then - just display task 1 , 
- 'repeat with x in gTask2 Sprites , 

APPENDIX A-306 



set the 1 oc of sprite x = point (-1000, -1000) \ ; 
end repeat 

upda test age \ 1 ~\ 

' repeat with x = 11 to. .16 _., 

set the Visible of sprite x ■ •= true 
. end repeat- • ' - 

updatestr.ge .': 

exit • . , . " . " ' . \ . • • . , . 

, -end if , . . . • • ■ " : -. , .'. '. 

if tashl' = 0 and task2 = 1 then - - just display task 2 
repeat with x -11 to 16 . • • 

set the .Visible of sprite x = false 

■ end repeat " 
updatestage ; •, 
set NewTop =168 • 
set: the loc of sprite 30 = point ( 69 , newTop) 
set the loc of sprite 31 = point ( 1S5 /newTop) 
set the loc of sprite 32 - point (2*70 . newTop) 
set the loc of sprite 3 3 point (4 00 . newTop) 

•' set the . loc of ' sprite '34 v. point (553 , newTop) s 

end i f • ' " ■' ■ - ■ ' j : 

end - ' '. . . 



•4 ' 



on PutUpRapTasklStats whichLine 
global gRapTapKeyWords 
set whichLine = Value (whichLine ) 



; set lineNum = the number of lines of field " RapTapTaskl " ' 
1 put item 1 of line whichLine of gRapTapKeyWords & return into line lineNum of field 
-RapTapTaskl*:, . 

setPlainStyle (lineNum, -RapTapTaskl" ) » " 

set lineNum - the number of lines of field "RapTaplUnits" 

put item 2 of line whichLine of gRapTapKeyWords & return into line lineNum of field 
-RapTaplUnits" 

setPlainStyle (lineNum, "RapTaplUnits") ; , - 

set lineNum : == the number of lines ef field "RapTaplStimulus " 

put item 3 of line whichLine .of gRapTapKeyWords & return into line lineNum of field 

- RapTaplSt imulus " ; 

setPlainStyle (lineNum, "RapTaplStimulus" ) ^ 

set lineNum = the number of lines of field " RapTapl Interval " 1 

put item 4 of line whichLine of gRapTapKeyWords &. return into line lineNum of field 

-RapTapl Interval" ,V- " . 

setPlainStyle ( lineNum, n RapTapl Interval " ) , . 

set lineNum '= the number of lines of field "RapTaplFeedBack" 

put item 5 of line whichLine of gRapTapKeyWords & return into line lineNur :. field 
- RapTapl FeedBack" : * ^ ■ ' . I 

setPlainStyle (lineNum, "RapTaplFeedBack" ) 

end •' : 



rn PutUpRapTask2Stats whichLine ; 
global gRapTapKeyWords 
set whichLine = Value (whichLine) 

* " . ' " , " ■ ... 

set lineNum = the number of lines, of field "RapTapTa:-k2 * 

put item 1 of line whichLine of gRapTapKeyWords & '"return into line lineNum. of field 
-RapTapTask2 r . 

setPlainStyle {lineNum, "RapTapTask2" ) 
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-RapTap2Units ,< • . : \ . . 



field 



field 






setPlainStyle ( lineNum. 
end ' 
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on exitFrame ; ■ \ ' ■ _ 1 V»«T»rv 

; ' MakeVisRapTapSprit.es - 'special case from RapTap 

global : gTask2Sprites • . ^ 

set gTas k2 Spr i t es, - 1 30 .31,32,33. -3 4 1 , . 



task 2 



true 

init-RaptapFi elds : 



* - ■ i 



Score ScripM 31 . 



i 



on exitFrame 
cursor 4 

ini tRaptapFields ; 
di s p 1 ay RapTapDa t a 
cursor -1. ." \ 
end 



( * 



1 



V i 



»■■• -V. 
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on mouseDown ' 

f f 0 £LK^<T«n ,xit -. do' z.v.hln, if bt«* -row is UP. 
if legalButtonHandler ( ) then * _ ; 



u 



initRaptapFields • 
set gSessionNum > gSessionNum :+ 1 
go to Marker (0) . / - 

end i f .. . '; • 

end 



/ 



Score Scriptl 33 



on ' mouseDown \ • ; : ' ' 

!ft££SS« «U - dono,hi„ 9 it blan, arrow is up 
if legalButtonHandler () then . • *; . ... 



; updates tage 

initRaptapFields 
set gSessionNum' > gSessionNum - -1 
go to Marker* (0) 

end if , . ■ ; 

end ■ ■ " •' • 



Movie Scriptl 34:setP!ainStyleScript 



on setPlainStyle whiehLihe, whiehField , . 

-use after setting font style of a line of a field • 

on the PC once a style is set it sticks unless you , , 

— use this script on every line thereafter -plain 
: set the f ontSty le of Line whichLine of : field whichField - Plain 

end . •'' 
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. Movie Script 135 



on initRapTapFields — empty RapTaps data fields; of all but/ first Line 

global gRapTapFields , 'gGamesViewedList , gTheFont •: ' ... 
. set fieldCount = count (gRapTapFields) ' .. 
if not getOne (gGamesViewedList, tiRapTap) ; then 

append gGamesViewedList , #rapTap ; .. ■■ * . ; • = " , 

repeat with* x = T to fieldCount ■. . : - •/• ' . 

V ■ * ■ - ✓ •■ - * ! ' , 

Vset thisfield = get Propat'( gRapTapFields, x) - ' •. '; \ 
set Y = (the number, of- lines of field thisfield) • 
put.*" " into field thisfield " . .' \" \ 

set the font of /field' thisfield = gTheFont . ; 
' . set the font size of field thisfield =12 .. : . • *. 

set the fontStyle of Line 1 of field thisfield = r under Line" 
1 "■ set text = getaprop (gRapTapFields /thisfield) 

: put - text'' & return into field . thisFieid ■ 
set the fontStyle of Line 1 of field thisfield 1 - "underLine" 1 • 
■ , • delete Line 2 to Y .of field thrsfield '•■ ' •; . 

- : ( "\ put " into line 2 of field thisfield - . -*•.' "... : . : 

! • :-v : * setPlainStyle (2, thisf ield) • " , r ■ •' 

• • end repeat ";. . ■-. . > - . ; ; ■ . . .-. • • '. 

else . . •-*' •.. • , ' ■/*;•■. , . : ,. . . /,'> . '. . 

repeat with x = 1 . to fieldCount . " " • ,; . • , 

• . .. set thisfield = getPropat (gRapTapFields , x) . ,; ; 

set Y = (the number of lines of field thisfield) ; . r . 

; if Line 2 of field thisFieid = ; " " then next repeat 
delete Line 2 to Y of field thisfield . r • • 

put V •" into line 2 of field thisfield • 

setPlainStyle (2, thisf ield) '. V ; * " ] . • ; 

' end repeat"-/ 1 ' 1 \ : . ..' '•■ : . •>. ' . '. ' ■ ' ■ 

end if ; :'. • ' • • * - - * i • ' 
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on exitFrame 
• MakeVisRapTr.pSpr i t es 

cursor 4 . . . \ - 



_ r 'special case from RapTap task' 2 



, ♦ 



initCoal2Fields, 



end ' " 



J 



'. ■ ' t. 
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-«- • V 



on', ex it: Frame 
/-MakeVisI 



end 



ist 



-- special'.' case from RapTap task 2 



true * 
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\ ■ 



on exitFrame 
cursor 4 . 
PutUpCoallData 

cursor -1 ' 
end * 
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- i : 



* - 



on mouseDown 

global gSessionNum 
if BlankArrowO then exit 
if legalButtonHandler ( ) then 

spriteListOf f . ' ' *' \- " 

updates tage 

set gSessionNum = gSess'ionNum + 1 
go to frame "C.C. Goal .Car Data - 
end if 
end 



- - do nothing if blank arrow is up 
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on mouseDown 

global gSessionNuro 
if BlankArrowU then exit — 
i f legal But tonHandler ( ) then 

spriteListOf f 

updatestage . 

set gSessionNum = gSessioruJuiP - 1 
. go to Frame *C.C. Coal Car Data- 
end if' ' \ ' 
end 



do nothing if blank arrow is up 
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on mouseDown 

global gPageNum, . gNumPages 
if legalButtonHandler ( ) then 
cursor 4 
.. *' if gPageNum = 1 then 

if gNumPages = 2 then - 
; initcoallf ields ... 

showCCPage2oi2 . 
else' 

initcoallf ields 
, showCCPage2of 3 
end if • . 
cursor -1 ' 
exit 
v end if. 



if gPageNum - 2 then 
• .if gNumPages ~ 2 then . 
in itcoallf i elds , 
showCCPagelpf 2 
else ' >' . v. : . ' 

initcoallf ields ; 
showCCPage3of3 
end if 
• cursor -1 ... 
exit . 
end i f ., 



if gPageNum = 3 then 
initcoallf ields 
showCCPagelof 3 
cursor -1 . 
exit. 

end if 

end if 



end 



-on mouseDown 

- global gNextStart 

if legalButtonHandler { ) then 

- ,- cursor 4 

if gNextStart > 0 then 
initooal If ields 



pu t UpMor ecoa 1 1 Da t a 
;set gNextStart - 0 
else 

. initcoallf ields 

PutUpcoallData 
end if 

cursor - 1 . 
end if 
end ' 
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Movie Scriptl 54 A ". ■ ' " ; 

' ; <'•■■; * • • . • *■ " • . •: \ \ . •;" * "; . - 

6n DispiayCoalCarData ^^ hn ~ er aSessiordtorv gNex t Star t , gMoreBut ton , gMoreButtonloc 
; global gRecordDi splay, gWhicnUser, g^^ AU1 7 

. - -put getDara ; ( gRecordDi splay , gWhichUser , 6 ) into dataList . . / ^ . 



\ ■ 



put dataList , . . 

set dataList - conve'rtList (dataList.-. -5/ : J 

put' dataList " • 



_'t i t 



set Ses sionNums - count; 

* - - . 

--, pu tUpNa vAr rows Sess ionNums 



upda test age. ; . , ' -v 

. > • ■ * * -> • • • • 

put 4 getprdpat (dataList. . gSessionNum)' into date ■; 

put getat 'dataList, gSessiohNum); into |essionLxst 

-- here we need to see if the scores for this session .are n the 

-first task or the second. Levels <= 56 are task 1. Levels > 56 

set levelList = :[] . , . \: ' 

set numRounds= count (sess ionList) ■ ; 

repeat with x = 1 td nuihRoundLs 
append levelList, 
•. end repeat 

:. if max (levelList ) < 57 then. -- task 1 
go to frame "coalCarl" • .■'< 

end. if . 
if Mint levelList) >56 then— task I 
' go to frame -coaiCar?" . 



are task 2 




,x) 



end 
end 



if 
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on exit-Frame 
cursor 4 
FMtUpCoal2Data 

cursor -1 
end 



• i 
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Movie Scriptl 56 



. 4 



° n gKbai ^ecSSispUy; gWhichUser. gSessionNum. gNextStart, gMoreButton. gMoreButtonloc 



S put getData (gRecordDi splay, 

set SessionNums - count (dataList) 

- putUpNavArrows SessionNums 



gWhichUser , 6) into dauaList 



u 



put getpropat (dataList. . uSessionNum) into date 
put: getat (dataList, gSessionNum) .into, SessionList - 
put "date into! line 2 of field "dataDate" . , , 
setPlainStyle(2; "dataDate':;) \ r .. \ • . ' \ 
set numKounds. = count (SessionList) 



. repeat with x-V I to numRounds ' .■ 

-put getpropat { sess iohLis t , x '..);' into 
■ Set. UneNum. = the number of lines of field -Coaltask2 . 

PutUpCoal2words level . , T1 , m fi~\A 

■ put getProp (sessionList, level) ^return into line linenum of field 

setPlainStyiedineNum, -Coal2score" ) 

end repeat . - ; . ' . " . ' 

end • ■'■ .. - • - • . -.<\ 



"Coal 2 score 



on PutUpCoal 2words whichLine' ~ y- . '•' " 

set WhichLine - value (WhichLine) ' • • " . ... : . 

put field "CCKeywords " into keywords - 1 . - . . ■ 
set 'ineNum = the number of lines of field Coal task? _ 
Jut itemTof line whichLine of keywords ^return, into line lineNum of field 

"Coaltask2" ..J . , . .. . ' . - • . • ' • • >" • 

. : setPlainStyle(lineNum, v Coaltask2" ). : : . . ' 1^' • * ' ■"■ • 

set lineNul the nur^er of lines of field. -^HTargPh ^ . f 
■ put item 2 of line whichLine of keywords** return into line lineNum of field 

"Coal2TargPhbV . ^ v V '■' 

. setPlainStyle (lineNum, -Coal2TargPhoM ^ 

' end--- . . • '.' • • . ' ■ > • ' ' : • '. ' - 
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on mouseDown .■ ,' • 

global gSessionNum, . ; \ :'. . . 

' if BlankArrowO then ex : i t . do nothing if blank arrow is 
if legal But tonHandi^r ( ) then V 
• spriteListOf i'' ; -\ -J.--:. .. . 

updatestac e .. ■" 
set' gSessionNum 
•'. go to frame "C.C. 

. end if -V ; 

end ' : ;'. 



up 



gSessionNum + 1 
Coal Car Data" 
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on mouseDown - y '•' : 

global 'gSessionNum. ; * , . • , ; : - • 

if BlankArrowO then exit -- do nothing if blank -arrow is. up 

if legalButtonHandler ( ) then - . * ; ; ; 

spriteListOf f ' ' • - --. 

updatestage ; ' •• . . , 

set gSessionNum = gSessionNum - 1 • 

qo to Frame -C:C / Coal Car Data" : ; ' • 

end if . '-■ r .-* .' • ' : * '. - • 

end . -• , • ■ ' • -'• ; . .. .. r •"' ■■■■ . ; • " 
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on mouseDown 

global gPageNum, gNumPages 

<- 

if iegalButtonHaridler ( ) then 
cursor 4 

if gPageNum - 1 then 
if gNumPages =■ 2 then 
initCatCon fields 
showCatConPage2of 2 
else 

initCatCon fields 
showCatConPage2of 3 . 

end if 

cursor -1 

exit • . . ' 

end if 

if gPageNum '*= 2 then 
if gNumPages = 2 then 
initCatCon fields t \ 
showCatConPagelof 2 
else r . 

initCatConf ields 
. showCa tConPage3 of 3 • 
end if 
cursor -1 
exit 
end if 

if gPageNum = 3 then 
ini tCatConf ields 
showCa t ConPage 1 o f 3 
cursor -1 
' exit y 
end if 

end if 
end 

■ ■ -. . 
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Movie Script 162:getRectsUtility : ; 

• ■ . • - ■ ' . »*-.,•. 

' . ; » • . *.*„.* 

■ i 

on getegglRects - ' • ■ ~ \ ; ' 

.global gEggTasklFields 
put." " into f ield temPRects" ' : \" ' 

repeat with thisfield in gEggTasklFields - 

out 'set the reef of - n«iibet ; ^^ot*^ttoj-sfieJd^ofee&^"-;&:f -■; 
the rect of member thisfield £< return after field "temPRects- 

end repeat 1 .. • - ■ V 

end . . '.. / 

on getegg2Rects : ♦ ; - . . , . 

global gEggTask2 Fie Ids . v •. 

put " into field "temPRects" . \ • 

repeat with thisfield in gEggTask2 Fields / ; r ■ / • / 

put "set the rect of mernber"^Quotetthisfield&Quo ^ 
the rect of 'member thisfield & return after field " temPRects - 

end repeat - • / / ■ . ■ •./ / . . .' ^ ' \ . .' ./ . 

end " '• . "\ . , " ... '. , . .'. . 

' ■ -i ■ ■ '" ...... s . ' - . , ' 

on getCoal IRects ' " ..." 

.• global gCoallFields 

.put' " " into; field "temPRects" •; .. ." . : 

■ •-• . . .." . ' 

repeat with thisfield in gCoallFields : 

put "set the rect of member * &&Quot eU this f ield&Quote&&" = - 
the rect of member thisfield ^. return after field "temPRects- 

end repeat . . .-. ' . : . 

end . - . ; • • • 

v " ■ . ...... *' .• (- 

on g e t Cpa 1 2 Rec t s -. ' ";- * -.. .'- 

global gCoal2Fields ' :/ ,, .'. '' " ;V ■■ '; .'* .: . - . " \ 

put " " into field "temPRects" : r 

repeat with thisfield in gCoal2FieIds ; 

put "set the rect of member "UQuoteSc this field&Qupte&& " = "^ :^ 
the rect of member thisfield & return after field ."temPRects". 

end repeat ., \ > , / , 

end' '■' • ' ■ ' • . " ' 



on g e t Ca tConRec t s Z . J ' ; « ' 

global /gCatCpnFi elds : . , ; 

put " " into - f ield "temPRects" ' .,. : 

: repeat with thisfield in gCatConFields 

put "set the rect of member " &&Quote& this f ieldScQuote^ " = " 
the rect of member thisfield & return after field "temPRects" 
end repeat . V - : . 

end ■ • '';'!'' 

on getBal loonRects . '/ ■ . • . : , . 

global gBal loon f ie Ids 



Appendix A-320 



into fie Id " temPRectis 



• put " 
repeat with -'thisf ield- in 

put "set the rect of member-" fc&Qqptelg^isf^id&^ot^^rw 
the rect of member this field & return after field "temPRectsr 

end repeat . . >• v; ;. • , 

end ■ ■ ■■ ' • • . 



on getRTRects • ^ ; \\. / 

global gRTFieldList \, 
put * • into field - temPRects'- 
repeat with thisf ield in gRTFieldList 



put set the rect of member -&&Quote& this f ield&Quotek& 
the rect of member thisf ield & return after field -temPRects* 

end repeat •• • - : • . , , . 

end ; - • ' . •• • . • ' •' . ,' . • ' ' - 
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on mouseDown ;-' ' v- • , . • • ■ ■' • •■■ . , > 

global gSessionNum 

if. BlankArrow( ) ; then exit - do nothing .if blank, arrow .is- up 
i f- legalButtonHaridler ( ) then- ' ; 

set gSessionNum - gSessionNum + l t 

go to frame "Basket -Full of Eggs Data" 

end if. ..- ' • 

•*-.*. ■• >■ . .. • • ■ • • • * . ■ 

end • . ■ . . . 
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on mouseDown 1 ' "= 

global gSessionNum •' 

if BlankArrow( )' then exit — do nothing if blank arrow is up 
• if legalButtonHandler ( ) then -\ 
set gSessionNum = gSessionNum +1 : .. ' \ 

go to frame "Basket Full of Eggs Data- > - 

end if . 



end 



t 



\ ■ 
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Score Scripti 78 



on mouseDown 

global gPageNum, gNumPages 
if 1 ega lBu t t onHandl er ( ) then • 
: cursor .4 . " 

if gPageNum = 1 then : '/ 
if gNumPages = 2 then 
initeggl fields ; 
initEgg.2 Fields. 
showEgg2Page2of2 
else 

-initeggl fields , . ; 
initEgg2Fields . " 

showEgg2Page2of 3 
end if , • . 

cursor -1 '.' 
'. exit 

end if ; -* 



if gPageNum. = 2 then 
if gNumPages = 2 then 
; initeggl fields 
initEgg2Fields 
showEgg2 Page 1 o f 2 
; else • 

initeggl fields 
ini tEgg2Fields 
showEgg2Page3of 3 . 
e nd i f ' / , 

■ cursor +1 
exit 
end if 



• if gPageNum '= 3 then 
initeggl fields 
initEgg2Fields 
showEgg2Pagelof 3 : 
cursor -1 

exit • . V ; r " 

end if 

' ■ < ' * ■ 

end if . - , 

end . 



--on mouseDown 
-r global gNextStart %. 
■-t " if 1 ega 1 Butt onHandl er ( ) then 
cursor 4 

if gNextStart > 0 then 

initeggl fields 
... initEgg2Fields 
.-- pu tUpMor eeggz Da t a 

— ■■" .set gNextStart, = 0 
else, ' • : '' 

- initeggl fields 
initEgg2Fields 



end if 
cursor -1 



■ f 



i . 
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— end if 
--end 
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\ 



v: 
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Score Script 180 

i * . 

. i 

on mouseDown 

global gPageNum, gNumPages 
if legal ButtonHandler ( ) then 
cursor 4 

if gPageNum = 1 then 

i f gNumPages - 2 then . . 

initBalloonf ields 

showBa 1 1 oonPa g e 2 o f 2 
else 

initBalloonf ields 
. showBalloonPage2of 3 
end if ' • 

cursor ~1 
■ exit •- * 

end if . - . 

* * • 

if gPageNum = 2 then 
if gNumPages .= 2 then 
initBalloonf ields - 
showBalloonPagelof 2 
• else - 
j initBalloonf ields 

showBa 1 1 oonPag e 3 o f 3 
end if • • 
cursor -1 
exit 

end if . , 

if gPageNum = 3 then 

initBalloonf ields - 

showBalloonPagelof 3 , , 

cursor -1 
" : exit 

end if • . 

end . if •. 
end 

■■pi*. * 

end • ' 



--on mouseDown 
--global gNextStart 

if legalbuttonhandler ( ) then 
cursor 4 
, if gNextStart > 0 then 
ini tBal loonFields 
putUpMoreBal loonData 
set gNextStart =0 
else 

ini tBal loonFields 
displayBal loondata 
end if 
cursor - 1 
end if 
- -end ; 
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on nouseUp 



end; 



Movie Script! 82 

on* putUpPglof2 . , ■ 

put- " Pg . 1 of 2" into line 3 of field "dataDate" 
s.etPlainStyle (3', "dataDate" ) 

end • - ' • • . 1 . • 



on putUpPg2of2 ,/ • 

put ";Pfj.2 of 2* into line 3 of field "dataDate* 
setPlainS'ty 1 e ( 3 , "dataDate " ) . 

end .■ . • ■ . ' .. ' • "• 



on putUp'Pglof3 , '. . 

.put ."Pg.l* of 3 ■ into line -3 of field "dataDate 
. setPlainStyle ( 3 /"dataDate" ) 

end ■, ■ r "• ' ■ ■ :•• " 



on putUpPg2of 3. ■] 

put "Pg. 2 of 3" into line .3 of field "dataDate 

setPlainStyle ( 3 , - dataDate; " ) 
end • 



cn putUpPg3of 3 

put . "Pg* 3 of 3" into line 3 of field "dataDate 
setPlainStyle (3 , "dataDate" ) 
.end 1 



Score Script 184 ; 

on .mouseup 
end- 
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Parent Script185:Egg2FieldMemberNums ; , ... r " \<" v 

. ■ . ■ * ■»■•.■ ■ ■« ■ - « ■ . " . . , ■ . 

• ■ . • . * - ■ ■ - , ■ 

property dataDate/Eg'gTask? /EggDuration, ^gAnplif leation, EggSteps, ■ 1 
property Egg2Diff Score, Egg2SameScore : ' *•/ 1 . . •' 

purpose- is to return the member number' of .each on screen field while 
building- the data on screen. 1 . In. hopes of speeding up screen display 1 

on new Me - ; , 
init Props me . ■ • 

return me '. " . > , " \ 

end • . - ' : ' ' .- ■ . •. ■ . 

« , ■ • - • 

on initProps me; - ••'■*'■ ; , ■ 

* global gEggTask2Fields . . / • ; .. 

■repeat with thisField \in gEggTask2Fields . 
> case (thisField) of .•• • - ' • • \ ;\- - • 

"DataDate" : put the membernum of member "DataDate" into datadate 
"EggTask2 " : put the mernbernum of member "EggTask2" into EggTask2 
*• , ," EggDuration" : put the membernum of member " EggDuration " into EggDuration ; 
"EggAmplif ication" : put the membernum of member "EggAmplif ication" \nto 
EggAmplif ication ., ■■".:•'«'' 

; "EggSteps" : put the membernum of member ' iggSteps " into EggSteps 

,_! ,-Egg2Diff Score" : put the membernum of menber ."Egg2Diff Score " into Egg2Diff Score ' 
* Egg2SameScore " : put the membernum. of member ■' !3gg2 SameScore " into Egg 2 Same S^r-.e 1 
.- - otherwise: alert "there may be a problem with EGG 2 fields. Check gEggTask2 Fields 
'for changed field names ; . • 

/■ end case; ' ' ' - '; ■, • . • ■ { 

■ end repeat', - \" . ; ; , \ ' 

end . •• ' • ;. . ' .• ••. ■ , = , 

. , c./ ; '• -' ; " " .. ■-■'■' ( .•' ". . ■ ■ . * ■ • /*> • . "- • 

on FieldNvim me, whichField ^ • . ( 

case whichField of - • '•;."- • . v ' n •.. 

# Da taDa te : return datadate - ' / 

#EggTask2: return EggTask2 v< . , , ; 

. # EggDuration: return EggDuration • •', ;■■ < ' 

\ #EggArnplif ication: return EggAmplif ication 

,#EggSteps: return EggSteps, - \ ■ 

#Egg2Diff Score: return Egg2Diff Score 
•. #Egg2SameScore : return Egg2SameSc ore 
; end. case - 

end ; ; . ■. "•• 




■ r 
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Movie Scriptl 86 , " 

on testobj hownvanyTimes . . . ; 

global gEgg2ob 

put the ticks into start . \ * 

repeat with x = 1 to ' howmany times ■ . . . 

: set b = the number of lines of field-eggarnplxfieation 

• - • •■ ■ ■ • ■ . ■. 

end repeat. , • 

put the ticks - start \ 
put the ticks into start ^ 
reoeat with x = 1 to howmany tupes . - 

Sfb = the number of lines of field f ieldnun,(gegg2ob. #eg 

end repeat . . . ' . - 

put the ticks - start 1 -.; 

. end repeat . . ••••• '' -* / 



ion) 



. < 
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Movie Script187:PriritingHandlers " 

■ ... . ■ _ , . - . '• ' ; ■ . ' • . 

. ■/ • • ■ .. ; . ... • • / 

on printDataPage "\ . . 

r- Main handler, to create printout of one screen's "data 

— Checks frame label of current • frame to determin which sprites 
: - - need to oe printed and how to. allign each field. ■ 

\ important that the label names not be changed!! • 

• cursor- 4 ' . • :• . ' • • '•■ t ■ ■ • 

■ set- doc = 0 • ' • * ' . : 

set doc - new(xtra "printomatic" ) . ■ ' 

\ . . - ... .... ..... 

■ if not objectP (doc) then- ,-; • : ' ; 

alert " th^re is a problem with printing" " : " - ' v 

cursor - 1 " • • . . 

• exit . . . * . t » 

■ end if ' • \ \ " . • '♦. 
• : . put the font of ;member ."specifics* into theFont ;. 

. "•• reset doc ^ • 7 • ' ;"- . 

set Lands capeMode (doc, true)- ' ' . ■ : " 

setJtergins(doc'<rect {72", 36, 72,36) )' , . , ' -. * - . * ' . , . 

• newPage doc - . * • "•• • • ' \ ■ r . ; 

4 . • i - ' ' " . - . ' . ■ , ■ 

/setText font doc/ theFont ' :l 

* < " ■ " 1 ■ 

v ■ r - 

* .... . , 

t - "■ • " ' ' " • * " ' • - , -. ' . ■ ' 

\ set printingList = Get Print ingpist ( ) tine . this function below 

returns property list of. the fields to print - 
~ t. the property is a syrnlool ILJC or #R for allignment of left/ centered etc. 
set fieldCount = count (printingList ) ;• 
repeat with x - .1 to fieldCount . , , , • ' 

: set f ieldSprite : = getat (printingList , x) • ; • 

if the visible of sprite f ieldSprite - false then next repeat--- special case, RapTap 
task 2 . • ' ' .' • ' 

set all igTiHow. = getpropat (printingList ,x) ' 
ca- e all ignHow of 
. ."- #L:. setText Just doc, "left". 

^R: setText Just doc; "Right-" . ■ • 

MC: setText Just doc; "centered** . ., ; : 

#S:DoSpritePrint f ieldSprite . .' • 

end .case ; ■ ' \ . ' ' • , 

1 --^ set* member Name = the Name of The Member of sprite f ieldSprite 1 
set spriteRect ~ the rect of sprite f ieldSprite ; 
1 " newFrame Doc, spriteRect, false . '..<?• 

append doc, sprite f ieldSprite, false • ••• . 

end repeat •' - ' • - / ■ . • - . 

r- now put in criteria at bottom of page, 
set CriteRect = rect (11, 465, 631, 540) 
secTextJust.doc, "Centered" 
newFrame Doc, CriteRect, false 

set CriteText - getCriteTextO ; : 

r- returns name, of cast member with ' • 

— text for that page's criteria ; 

append dec, member CriteText . false . : * . • • 

set Document name (doc, "Earobics PRO data") — change here to put different name 
'-- on print progress dialogues. ; -' . ' .- 

- print doc ^ . / . - / ■ 

.. set doc - 0. • ■ .- ■ ' 

cursor - 1 " : ' .j x -/ . '' . J . - 

^nd . " • • • ■ 

» l> * * 
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on DoSpritePrint whichSprite , ■ t 

global doc < . ■ . ■ ; „ 

set spriteRect = the rect of sprite whichSprite 

newFrame Doc, spriteRect, false 

append doc, sprite whichSprite 
end * i 

■on getPrintingList 

— set these lists up by hand. Property is allignment ; of 
-t field sprite, Value is the sprite num of field sprite 

Make sure label names are correct 
set printingList = [:] 
case (label (0) ) of 

(label ("CoalCarl" ) ) : set PrintingList =?,' [#L:4, #L:5, #L:6, ttL:'7, #L: 8, #L: 9, #L: 10, #C: 11 J 

(label ( "CoalCar2" ) ) : set PrintingList - [#L: 4 , #L: 5 , #L: 6, #L: 7 , ttL: 8, #L: 9 , #C : 10, *C : 11 J 

(label ( "Rap- a-Tap-Tap Data")): set PrintingList == ; 
[ «L : 4 , #b : 5 , «L : 6 , '#L : 7 . #L : 8 /#L :10 > * L : 1 1 V #L: 12 ; #L : 13 . #L : 14 , #C : 15 , #C : 1 6 ; #L: 30 . *L: 31 , #L: 32 #C: 
33. #C:34] .' . . , 

(label ( "Caterpillar Connection Data")): set PrintingList = , - ) 

[#L:4, #L:5, #L:6,#L:7, #L:8,#L:9, #L: 10 /#C :1 1 f #C : 12 , #C : 13, #C : 14 ] • 

( label ("Kar loon's Balloons Data") ) : set PrintingList V 
(*L:4,#L:5,#L:6,#L:7,#L:8, #L: 9; fC: 10. #L: 11 , #L: 12 r #L: 13 , #C: 14 ] 

. (label ( "eggTaskl" ) ) : set PrintingList s=- " ^ ';■ . . , : 

[#L:4 r #L:5 / #L:6,«L:'7,#L:8,#L:'9 < #C:10,#C:ll,#C:12] . 

. (label ( "eggTask2" ) ) : set PrintingList = ' 
[#L: 4 , #L: 5, #L: 6 , #L:7 , #L: 8, #LT: 9, #Lr 10, #L: 11 , #C: 12, #C: li . #C: 14 ] 

(label ( "Rhyme Time Data") ) : set_ PrintingList , ■. . "•. • 

= [l*L:4,#L:5,#L;6,#L;7,#L:8,#L:9,#L:l0,«L:li;#C:12,- : : - I 

#C:13, #L: 15, KL: 16. #C: 17 ; #C: 18] 7. . ' ; . 

end case 

return PrintingList '. 

end . . * 



on getCriteText 

r-- same idea as above, but reurns name of cast member with criterion' text 
make sure member is there, and "named correctly! ! 

set . text' =0 '.. 

case (Label (0) ) of 

( label ( "eggTaskl " ) ) : set text = "egglCriteria ".' 

(label { "eggTask?" }) : set text = "egg2Criteria" ■ ■ ' 

(label ("Caterpillar Connection Data")): set text = "CatConCriteria " 

( label ("Kar loon's Balloons Data")): set text = "BalloonCriteria" 

(label ( "Rhyme Time Data" ) ) : set text =" "RhymeTimeCriteria* 

(label ( "Rap-a -Tap-Tap Data")): set text = "RapTapCriteria " 

(label ( "CoalCarl * )) :set text = "CoalCarlCr iter ia " 

( label ("CoalCar2") ) : set text = "CoalCar2Criteria" 

end case . • *' . 

return text- . _ *• 

end 



on f indSpr ite whichMemberName * 

returns first sprite number containing "WhichMemberName" 
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r-- or 0 if no such sprite, 
set theSprite = 0 

re ?fthf meitLr oflprlte x = number ^ichMemberNa^e then 
set thesprite = x 
exit repeat 
end if 

end repeat ; ' 
return theSprite 

end 
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ParenVScript196:BalloonFieldMemberNums 



property. dataDate, Ba 1 1 oonTasVw Ba 1 1 ooriNumber , BalloonStimType, BalloonVisDi splay, 
property BalloonNoise, BalloonScore / , ; . 

■ ' . . ■ . : . . ... * ' 

— purpose is to return the member niunber of each on screen field while 
--building the. data on screen. In hopes of speeding up screen display. 



--set gBalloonf ields = ("DataDate*, 
"BailoonVisDisplay " , "BalloonNoise 



on new Me 

ini tProps me. 
return me 



BalloonTask" , * Bal loonNumber " , >BalloonStimType" {f ' 
•BalloonScore" ] 



end, 



on. in it Props me, *. ' . . . - ' ... 

' global gBalloonf ields . • ' ' ' ' . ■[ 

' . repeat with, thisField, in gBalloonf ields „ v . 

case . ( thisField) of . « , 

"DataDate" : put the mernbernum of member "DataDate" into datadate ' 
"BalloonTask": put themembernum of member "BalloonTask" into- BalloonTask 
' " Ball ooriNumber" : put the membernum of member "Bal loonNumber " into Ba 1 1 oonNumber 
"BalloonStimType" : put the membernum of member ; 'BalloonStimType'. into . 
Ba 1 1 o onS t imType , . > 

• "BalloonVisDisplay" put the membernum of member "BalloonVisDisplay" into - > 
: Ba 1 1 oon Vi s Di sp 1 ay - - ,. ■■ . 

"BalloonNoise" : put the membernum of member "BalloonNoise" into BalloonNoise 
"BalloonScore": put the membernum of member "BalloonScore" into BalloonScore 
otherwise: alert "there maybe a problem with EGG 2 fields. Check gEggTask2 Fields* 
for changed, field names" 
end case 
end repeat ; 
end 



on FieldNum me, whichField . 

case' whichField of v - • . . • . ■■■■ 
JDataDate : return datadate 
^BalloonTask: return BalloonTask 
# Bal loonNumber: return Bal loonNumber 
# BalloonStimType: return BalloonStimType 
# BalloonVisDisplay : return BalloonVisDi splay 
# BalloonNoise: return BalloonNoise 
# BalloonScore: ;retum BalloonScore 
end case - 

end 
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Script of Cast Member V97:prevBut 



on mouseUp. 
' printDataPage 

end .', 



Score Script 198 



on mouseUp 

■ K don t Pas seven t 
end 



Movie Scupt 199 • . • 

. . • . : r i t l 

on- MakeVisRapTapSprites - : 
• --"script needs to be called, every where 
since it is possible to leave some 
— charuiels invisble when; leaving 

RapTapScreen if .only task 2 is up * 
'* V repeat with x - 11 to- 16 

set the .visible of sprite x = true - 

end repeat. ■ ; 

end '"* . • - 



K' ■'■ 




Score Scnpt200 



on exit Frame- 

MakeVisRapTapSprites — special case trom 

. puppet ButtonSprites .true 

spri tesonlist [28] - "'• - 

end ''. 



RapTap task 2 



* 



. : 
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Movie Script20i / ' . 

, * — ■*■ 

on pu tUpNavAr r bws sessionNums . 
--evaluates which daca session is on screen and puts 

up- the appropriate navigational arrows 
global gSessionNum . . 
— first correct gSessionNum to pin out at first and last item 
;-. — ■ of sess ionList 'by referencing parameter "sessionNums" 
if ' gSessionNum. >- SessionNums then . 
set gSessionNum = SessionNums . 
. end if : " : * ; 

if gSessionNum < 1 then 
• set gSessionNum = 1 . 

• end if * , , : • ■ 

if gSessionNum = 1 then , 

if sessionNums > 1 then • • : 

v pu tuple ftArrowj 
else - ,' '1. V • '-. . "" ■ . ■ . ' '.' ' 

putUpNoAr rows --only one, or no records 
; end if ' .• * ■ \ '* • 

else ■ " , v 

if gSessionNum > T and gSessionNum < sessionNums then 

putUpBothArrows : 
else . . " '. " ."' . • • • " " . 

.if gSessionNum ~ sessionNums then 1 

PutUpKightArrow ^ , - 
end if ■■ . . ; . * . f " '.' - ■■■ ■ 

end if : ■ ' : ' 

• end if. •• 

1 

end; - 

'• ' ' . ** - * 

. * " . r i -',..» 

' % • ' * 

i- 

' - j . _ * | 

- * " «■ ' ■ ' • ■ • 1 

■ < *• . ... 

■' ■ ' " . ' .'•..■■*.« . • - - ■ . < 

. " on putUpBothArrows A v, 

■global gPrevButton. gNextButton • \ 

. : set the member ' of. sprite gNextButton to member lef t Arrow r 

set the member of sprite gPrevBut ton to member "RightArrow" 

end . ' ' : . 1 .... . . ; 

... • - . ■..■»■■- ^ , i . 

on Pu tuple ft Arrow, " 

global 'gPrevBut ton, gNextButton 

set the member of sprite. gNextButton to member " lef tArrow" 

set the member of sprite gPrevButton to member "Righ tArrow Grey 

end - • ' ■;- " : • .'■ \ 

on PutUpRigh tArrow ■'[ 

global gPrevBut ton, gNextButton ' 

set the member of sprite gNextButton to member "lef tArrow Grey" 
set the ..member of sprite gPrevBut ton to member " righ tArrow " 

end . . 

• on putUpNoArrows 

global .gPrevBut ton. gNextButton;. 

set the member of spri te/ gPrevBut: ton to member "Righ tArrow Grey 

set the "member of sprite: gNextButton to member "Lef tArrow Grey" 

e nd . - . - . ' "• / ' 



APPENDIX A-334 



on BlankArrow . ' 

function called by 4 Nav. arrow sprite scripts 
— to lock out button action if the Blank arrow is up 
put . the name of the member of sprite the clickOn into temp 
if word 2 of temp ■= "grey* ■ then 

return 1 ' 
else :. . .;• . 

return 0 
end' if - \ , 

end ; •- 



on putUpViewPage2of 2 

global gMoreBu t ton , gMoreBu t tonLoc 

set the loc of sprite gMoreBu t ton to gMoreBut tonLoc 

set- the member ,of sprite gMoreButton = member - View2of 2Button 

updatestage . 

end , •< •. 



on putUpViewPagelof 2 • • / 
' global: gMoreButton /gMoreBut tonLoc 

''■set the loc of sprite gMoreButton to gMoreBu t tonLoc 

set the "member of sprite gMoreButton ~ member "Viewlpf 2 But ton 

updatestage > •' * . ' . * 

end' .' , - . • 



on putypViewP'ageiof 3 . •■■ / . . ' * 

global gMoreButton. gMoreBu t tonLoc . - 
set the loc of sprite gMoreButton to gMoreBu t tonLoc 

... set the. member of sprite gMoreButton = member "Viewlof 3Button 

., updatestage - ■ \ .>"..;•' • 

end • : • \ ■ • , • '•' ' •'■'■* . 



on putUpViewPage2of 3 

global gMoreButton. gMoreBut tonLo< 

set the loc of sprite gMoreButton to gMoreBut tonLoc \ 

set the member of sprite gMoreButton =. member " View2of 3By t ton 

updatestage • "■ - - • 

end > . ■ - " 



on put~UpViewPage3of 3 : ... 

global gMoreButton ..gMoreBut tonLoc ■"..*.." 

set the loc of sprite, gMoreButton to 'gMoreBut tonLoc 

set the member of .sprite gMoreButton = member " View3of 3Button 

updatestage. • " , - 

end* • . ■ / ! 



on sendAwayView Page But ton 

global gMoreButton. gMoreBut tonLoc '[ 

set the loc of sprite gMoreButton 4 to point (1000. 1000) 
updatestage- , ' : "■ 

end ■ . • , 
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Movie Script209:LegalButtonHandler 



on LegalButtonHandler 

set IRollover ■= TRUE 
set clickSprite = the clickon * 

set lB^ttonUpName = the name, of member (the member of sprite cUck£*>rite) 
set lButtonDownName = lButtonUpName & ■ Down* 

set the member of sprite clickSprite = member lButtonDownName • 
updatestage 



repeat while the stillDown = TRUE 

if rollover (clickSprite) = TRUE then 
set IRollover = TRUE 

set the roembernuni of sprite clickSprxte 7 
updatestage ' 
else 

set IRollover. =. FALSE .\ 
set the membernura of sprite clickSprite - 

updatestage 
end i f 
'end repeat 

if IRollover = FALSE then return 0 • 



the number of member lButtonDownName 



the number of member iBu tt onupName 



set the membemum of sprite clickSprite .= the number of member 1 Butt onupName 
updatestage ■ ', 

return 1 ' ' ' * ' ' 

end LegalButtonHandler ~i 



Script of Cast Member21 1 :printButton 



on mouseDown 
if 1 ega 1 Bu 1 1 onHandl er ( ) then 
open Pr i nt Place 
end -if 
end ■ 
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Script of Cast Member213:UserButton 



g ^SfSSuMateri gWhichGaxne. gWhichUser. jixriWhichGaxne. jimWhichUser 
set x "= the clickOn , . • 

--set the ink of sprite x to 2 

sefthflofto point (the left of sprite x. the bottom of sprite x) 
set whichfield = the membernum of member -userNameLxst 

shovMenu (gmenumaker, whichField, theLoc). 

set the. ink of sprite x to 0 
updates tage 

■ * 

put the result . into whichLi ne . 
if whiehLine = .-1 or whictiLine = # nothing then exit 
- put line whichLine of field -userNameList- into gWhichUser 
delete char 1 of gWhichUser — take out leading space 
if gWhichUser = jimWhichUser then exit 
put gWhichUser into jimWhichUser 

,if jimWhichGame <> > and jimWhichUser <> -..then 

spriteListpf f . ,. 

goJim 
end- if 



end 
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• I -- ■ 

Script of Cast Member214:GameButton 



°\^I D McnuMakor ! gWhi chGa.ne . flWhichUser . ji.WhichGan.e, jin.WhichUser 

set- x = th° clickOn 

set the ink of sprite x to 4 * . ; 

s^chJlofto point (the left of sprite x. the botto^n of sprite x) . 
set whlcrMember = the: meritoernUm of • member 'GameL-xst • 
showMenu ' (ginehumaker. vAiichMember , theLoc) 
r set the ink of sprite x: to 0 

updatestage • : . ; 

put the result into whichLine 

'•if whichLine =■ -1 or whichLine = # nothing then exit 
Put Hnf ^xchLine of field >^List' into o^^hGa^e 
delete char 1 of gWhichGame - take out leading space . . 

if aWhichGame = J imWhichGame. .then exit .,. • .. . .. 

put gWhichqame into jimWhichganie . • ■ 

if .juiMiichgame <> -- and jimWhichUser, <> " .then 

g° JiTO , . . ■ '■ ' .'; . . * '. • - ; "■ ' . . '.. 

end if ■ 



• i. 



end 



v. 
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Script of Cast Member215:help 



on mpuseDpwn Qll ^on aMoreButton, gDatP.PrintButt.on 

" global gNextButton,gPr evBut ton, gMoremitLon, y 

if legalButtonHandler ( ) then. • , V 

pup^etButtonSprites false 
• puppetSprite gDataPrintButton, talse - 
set the loc of sprite gMoreButton = point . (1Q00, 10.00) 




go to frame "menu* 

end if . . 



end 



Script of Cast Member1M7:MenuButtpp.'. 



on mousepown 

if legalButtonHandler ( ) then. 



go to movie "dataTest 

end i f " : • 



"end 



Script of Cast Member250:exit 



on mouseDown 

Global gSpritesOnList. 

if legalButtonHandler () then 

spriteListOf f 

set gSpritesOnList = ' [ ] 

cursor 4 - ,. 

• go to movie "dataTest" 

- , end if 
end 
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Score Script4 



on exitFrame 
■ go to frame ' "Listen :> 

end: 1 



Score Scripts 



on exitFrame 

go to frame "Vowel test " 

end • 



* % 



Score Script6 



-on exitFrame ; . , • • . 

global gRoundQver," gsoundFrame, g.Egger 
if gRoundOver. = false then . , 

- putUpEgg gEgger . v * ■ , y ; ' 

go to frame gsoundFrame 

. else ' ■ ■". ; i - ' * 

. -X . putUpEgg g.Egger' - • ' 

go to frame ^ Qui tOrGoOn" . : . . 
• '.' set gR'oundO\ r er = 'false ; 

^nd if * - • ' . . • ■■- - -i • - 



end 



Score Scnpt7 



on exitFrame • 



c he e ku s e rTi meOu t 
go to the frame 



end 
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Score Script8 



° n -rise r S2vel to figure out which g,^ we're playing 
global g level . ' - 1 i 

if gLevel <= 30 then' 

go to frame "Vowel Sound" •• 

else 

go to frame "CVsound" 
end if 
end 



Score Script9 



on ex it Frame 

go to frame 
end 



CVtest 



"Score Script 10 



on exitFrame . \_ 

global r gVowelTest , gSoundFrame, gHandCursor 
put Label (0) into gSoundF rame 
doVowelTest gVowelTest 
repeat while soundbusy ( 1 ) 
nothing 

end repeat . - ■ ■ . 

SetUserTimeOut (600, " vowel Test TimeOut " )■ 

cursor gHandcursor 

go to f rame "VowelTest ( ' . 

end 
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Score Scriptl 8 



on mouseUp 

glottal gVowelTest, gPauseStatus 
if gPauseStatus - "resume" then exit 
CheckForTimeOut' gVowelTest 
checkanswer (gVowelTest , #same) 

end 



Score Scriptl 9 



on mouseUp ' . 

global gVowelTest , gPauseStatus 
If gPauseStatus = "resume - then exit 
ereckforTimeOut gVowelTest 
checkanswer (gVowelTest, #dif£ ) : 

end . 



Score Script20 



oh exit Frame- 

global gCVtest'. gSoundFrame . gHandcursor 
put Label "(0) into gSoundFrame 
doCVTest gCVtest 
repeat while soundbusy(l) 

nothing 
end repeat 

SetUserTimeOut ( 600 . "CVTestTimeOut " ) 
cursor gHandcursor 
go to frame "CVtest" 
end 
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Movie Script? 1 

. ; '■ ' ■■ ■ > .- ; • - ■ ' 

on star tMo vie ' : . . ; 

global gVowel Sounds-, gCVTest/ gVowelTest, gRoundOver, gspritesOnList , 

gEgger , gpausestatus . 

Global gEggBasket Sprites, gOldColorLevel. , goldscoring level , gthename,gRecordKeepe 
global gHandQjrsor, goldscoringlist 

cursor 4 " . , 

if the machineType <> 256 then : • < . ■ 

set gpldColorLevel = the colorDepth 

set the colorDepth. = 8. . v 

- end. if 

set gCVTest = new {script "CVTest Proctor " ) 
\ set x = 4 the number of . lines of field "vowels" 

set gVowel Sounds - {] - ' . 
. repeat with z = 1 to x '. ' v V\ • 
, set temp = [ ] * . • * . 

setat (temp, 1, item 1 of line z of field "vowels") 
setat (temp, 2, item 2 of line z of field "vowels") 
append gvowel sounds , temp • , y : • 

end repeat ':; . ;v , . •' . ... 

set gVowel Test .- new (script "Vowel Test") 

set gEgger = new (script "egger") 
set gRoundOver .= false ~\ • - - 

set gSpritesOnList --= [) 
v set gEggBasketSpr i tes = [11 , 12 ,13 , 14 ,15/16 , 17 \ 18 ,19,20] . . 

repeat with thisSprite in gEggBasketSprites 

•set the visible of sprite thisSprite = false 
end repeat * " t 

updates tage ■' ' ' • 

— go to frame "preStart " 

- ' • . ■ : • 

' ■ • i » 

set the visible of sprite '45.* to false 

set the "visible of sprite 46 to. false 

■ set the visible of sprite 47 to false 

set gpausestatus = "pause - • 

\ if object P (gRecordKeeper) then ' . "* , 

r~ ' put setUpRcund (gRecordKeeper, gTheName, 2) , into glistscor ing level 

'' : r- end if . • , ' \ *- . 

r- put getat (glistscor inglevel, 1) into go 1 dsc or i ng 1 eve 1 

;>;if ob j ec t P ( gRecordKeeper ) then 

put setUpRound (gRecordKeeper, gTheName, 2) into goldscoring level 
i. put getQameLevel Lists (gRecordKeeper , gthename) into templevell ist 
• v put getat ( templevellist , 2) into goldscoringlist 

put "goldscoringlist =" & goldscoringlist . ' . 

if Lis tP (go ldseor inglevel) then we are playing '.the second game 
•• ' • - • 

set goldscoringlevel = getat (goldscor inglevel , 1 ) 
if go ldseor ing level = 115 then set goldscoring level = 114 

• end if' , • , 

end if - 1 
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set gHandCursor = [] \ .. ■ ; 

append gHandCursor, member "HandCur" • ■--.* 

append gHandCursor, . member "HandCXirMask" ' V -'■ - \ 

set the purgePriority of member "HandCur" = 0 , - • . 

set .the purgePriority of member * HandCur Mask" = 0 

end - •'■ . : . - ' ' - , . • . : ' . • ■ 

. • .: . . • - • ' ■ ' ■ . ''■ 

on StopMovie . ' , ... : ' • 

global gVowelSounds, gCVTes.t , gVowelTest /gVoid, gLevel, gspritesOnList , gWhichEgg, 

gEgger . , ... ' -* 

. global gBounceNum, gEggBasket Sprit es, gOldCp lor Level , gHandCursor • 

if the machineType <> 256 then , . 

' set the colprDepth =?• gOldCo lor Level" ( . 

end if 

if the runMode <> "author" then * : - \ ' - •• 

set gCVTest ■ -=, gVoid 

set gVowelSounds = gVoid : ' ; / 7 

set. gVowelTest =' gVoid - . ;. . '" 

set gEgger - J gVoid . . • ■ ' " • . ' ; 

end i f • ' ■ • 

, set gRoundOver = gVoid - : ■ J ■ .'■ - ; v . ; , 

.. ' set g Level- = gVoid ; \ . ... , 1 - ,.' . «'.• 

set gspritesOnList = gVoid • ; 
: set gWhichEgg = gVoid. ' ■•- \ ; : ' " ? ' 

' set gBounceNum - gVoid ■ ' . 

set gEggBasket Sprites = gVoid ■ ' • • '• . , 

. • set gHandCursor . = gVoid v ■ .. ' \ ., • . . ■ 

set the purgePriority of member "HandCur " = 3 > • 

set the purgePriority of member "HandCurMask* - 3 - 



end 
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Parent Scnpt22:CVTestPr6ctor : / 

■ - • »" ■ * * * - ' . 

—4/8/97 ] , ... : r , ' . ' . ■ . ^ :: • - ;.■ . ' 

--EggBasket Replacement. • ■ 

Property .TestPairList , ancestor, myHandlers, curren t Level , DiffList, SameList 
property roundS.coreLi s t , SoundGroup, Answer., NumR i gh 1 1 nARow . NumWr ong I naRow 
Property LevelToSave, : Pa irToPl ay, timeoutttfum, TimeOutAnswer 
Property disableReplayButton, • skipYesOrNo 

■''.■».. ■• . • " • :■ , 

on x-- -Public Handlers ------- 

--I'm a separator ' - • 

end' .' "•• *■ . - • / . : . '■' ' ■" \ • \- • 

on new me 

global gRecordKeeper * - - ; .• 

if Ob j ect P ( gRecordKeeper ) then - ' - . 
set the ancestor of me to gRecordKeeper 
set myHandlers. = 0 .; 
■ set myHandlers = GeU4yHandlers (me) . . . . „' 
: end if .».„•? •• 

return Me • • ■ 

end ■ ■. i-r ' •• ' ' 

i • * *■ ' * " , 

■ - t 

on startNewRound me, whichLevel, whichsoundGroup, Pref List ; 
Pub. . ' ; 

sets up lists of soundpairs for current group of levels 
. " Wh i chSoundGroup " is a string which all the sounds f or this 
'-- group share with only numerical suffixes changing 

the soundGroup property never changes during a round: 
. global gRoundOver • .• 

setUpTestPairLis't me . 
set RoundScorelist = [:] • 
. set soundgroup = whichsoundGroup ; , -. ; 

initDif f SameLists me . 
■■ set numRightlnARow = 0 

set NumWronglnaRow = 0 j - , ■ - 
set current level •= whi chLevel : ' ._■ j 

set Level ToSave = cur rent Level . 
set t imeOutNum = 0 ' '.' : 

set TimeOutanswer = empty 

set gRoundOver = false .. * 'y . . ■ 

set "disableReplayButton = getAT( Pref List , 1 ) 
set skipYesOrNo = getAT{ Pref List , -2 ) 
put soundGroup . 

end "'• ■' " ; . • "- • . " . . ' ' 

* '. .-■ - * ■ 

on doSampleSqunds .me , whichSounds . ' * 1 . - 

— - called f rom the score . (ultimately) , plays a pair of 
; same sourids if "whichSounds" = #same or ^different sounds 
if "whicriSounds" = ftdif f . Sounds are pulled from the 
--'current .^ound group - - : - . 

if whichsounds = isame then' '■• • • 

set .sound 1 - soundGroup&l • . 

,'. set 'samplePair =* [sdundl /sound 1 ]' 
•else ■. '• . . ' -," 

set- _ sound 1 = soundGroup&l = . - ' - 

' : - set sound2 = soundgroup&9 ;> . . 

. ■ * f i 

. * • . * 
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set sanplePair =, [soundl , sound2 ] ./,->• 

end if ' ' ' . • . . ' 

set firstSound = getat ( saTiplePai r , !) ' ".' 

-set secondSound = netat (sample Pair,, 2.) ' , " ■ v . . 

puppet sound. firstSound •,- '•' 1 • 

, updates ta'ge • .'■ „ ' \ ; , • '• < - • ; 

repeat while soundBusy (1 ) - '. '■' ./ ' 

. nothing • . . , r ..: , 

end repeat ?■ ••• • 'v • .*: 

puppe t s ound 0 ... '" , 

wait: 30 ' ■ : . " " \ 

puppet sound secondSound • '• 

•' updatestage' ■ ; 

repeat whi le. soundBusy ( 1- ) , - •. '.; = . 

nothing " •• ■ i ■ ' \ - * 

• , • , - - .. • . :■ ■ ... '■ . , . . ■■ ■ • 

end repeat : t * \. - 

puppet sound 0. . ._ ... . . • ; - % . : 

end . : - ': , -\ '* * ' ' : • ■" '■ 7 1 

* - . " - -'»...' * 

on DoCVTest me ,. 

pub.,. , ■. • ' ; . . • : ' 

--. this is handler to play. test 

- : it plays the* two sounds and sets the property "answer* according to 
whether the answer is same or different. These options are passed as 
symbols , .. ie v #same or #diff 

set level = (current level -30) mod (7 ) 
. if . level .= 0 then set Level . *= 7 . / : 

set PlaysLeft = count ( test PairList). 

if PlaysLeft < 1 then exit V '. ' .\ \ 

-set NextPair = getat(testPairList, playsLeft) 
deleteAt ( testPairList , playsLeft) . / • '•' 

if next Pair = #Diff then 

set pairList = getpr op (diff list, Level)' .. 

set pair = random (count (PairList) ) ' 

set PairToPlay = getAt (PairList , Pair) 

set Answer =#Diff 
else . ■ ; . 

set pairList = getprop (samel is t. # Level) 

set pair = random (count (PairList ) ) > 

set PairToPlay = getAt (PairList , Pair) • .. 

set answer = #same ... 
end if : '• '.' 

put answer ..• ' ' . . - . 

set soundl - getat (PairToPlay, 1) 
puppetsound member soundl, 

updatestage . 
. repeat while soundbusy (!) 
nothing 

end repeat ' • - ■ 

puppetsound 0 
wait 30 

set sound2 = getat ( PairToPlay , 2 ) - - 
puppetsound member souhd2 



a: 



updatestage 

repeat while soundbusy (!) 

nothing 
end repeat • ' 

0 - ■ • 



put the name of member soundl 
put the name of member sound2 
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'put "current level = " & currentLevel 

put "levelToSave = level tosave 

put roundScor eL i s t 

} end .. . 

on RepeatStiinul i me - 

pub. " , ■ * y 

' replays two current sounds if 

user, needs to 
set sound! - getat ( PairToPlay , 1 ) 
set sound2 = getat (PairToPlay, 2 ) 
puppet sound member sound 1 
updatestage 

• repeat while ' soundbusy ( 1 ) / : V* 

nothing • - 

end repeat 
puppet sound 0 
wait 30. . "■ ' 

puppe t s ound member sound2 " 
updatestage 

repeat while soundbusy (1 ) 

nothing 
end repeat 
puppet sound 0 

end 

on CheckAnswer me, whichAnswer 

--this handler should be called from the 

choice buttons, ie the hen pairs on screen. 
■ it evaluates the answer given by the user and keeps a property list 

accordingly, to report to the RecordKeeper . The answers must be passed 
as symbols ft Same or #diff. The list being kept is a property list 
with the current level as the property; the value is itself a list 
with 4 items , the first 2 are for scores on different sounds, the 
last 2 are for scores on same sounds. 

This handler also keeps -track of how many right or wrong, in a row 
the user answers during * round. If 4 right answers in a row then 
— the level is raised by 1, if 2 wrong in a row it drops by 1. 
global gRoundOver , gWhichEgg 
if whichanswer = answer then --Right ! ! 
set gWhichEgg = "Correct Egg" 
set NumRight inaRow = NumRight InaRow , + 1 
set NumWronginARow == 0 
if answer = #dif f then 
hideReplayButton me 

go to frame "Diff correct" 'V 
set AnsList = getaProp ( roundscoreList , current level ) 
if voidP (AnsList) then • — no score at this level yet 
set AnsList = [1,1,0,0] 
; addProp roundscorelist , currentLevel, ansList . 

f else 

set NumPlays = getat (ansList, 1) 
set NumPlays = numplays +1 
set NumRight - getAt (ansList , 2 ) 
set Numright = numright + 1 
, setAt AnsList, 1, numPlays 
setAt AnsList, 2, numRight 

set a Prop RoundscoreList, CurrentLevel. anslist 
end if / 
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else answer was tfsame _ 

h i deRep 1 a y Bu 1 1 on me ." ' . • , 

go to frame "Same Correct" 
« set AnsList. = getaProp { roundscoreList , current level ) 

if voidP (AnsList ) then ■-- no score at this level yet <. ' , 

set AnsList. = [0,0,1.1], 

addProp roundscorel ist ( current Level , ansList 
else . • . •. . 

set NumPlays = getat (ansList, 3} 
set NumPlays = numplays +1 

set NumRight = getAt (ansList , 4) ... 
set Numright = numright +1 

setAt AnsList, 3. numPlays * / 
setAt AnsList, 4, numRight 

setaProp RoundscoreList , Cur rent Level , *ansl ist • 
end if • 
end if , . 

else -~ wrong! ! 

set gWhichEgg = "wrong Egg"; 
set NumRight inaRow- 0 

set NumWronginARow = Numwrong^naRow + 1 

1 . . - - ^ ^ t - 

if answer = #diff then , 
h i deRep 1 ay Bu 1 1 on me 
go to frame "same Wrong* 

set AnsList .= getaProp (roundscoreList , current level ) 
if voidP (AnsList ) then --no score at this level. yet 
set AnsList = 11,0,0,0] 

addProp roundscorel is t , currentLevel, ansList 
■ . else - — 

set NumPlays ~ getat (ansList, 1) .. 
set NumPlays = numplays + 1 
setAt AnsList, 1, numPlays 
. setaProp RoundscoreList , Curr en tLevel , anslist 
end if 

else . .. 

h i deRep layBut ton me . J 
go to frame "dif f Wrong" 

set AnsList = getaProp ( rouiidscoreList , current level ) 
if voidP (AnsList ) then no score at this level yet 
set AnsList = [0,0, 1,0] 

addProp roundscorel ist, curr en tLevel , ansList 
else * ■ ... 

. set NumPlays =. getat (ansList, 3) 

set NumPlays = numplays + 1 
. setAt AnsList, 3, numPlays • 

setaProp RoundscoreList , Curr en tLevel , anslist 
end if 

end if , 

end if . 

if numright ina row > 3 then 

if (current level -30) mod (7 ) = 0 then -- we are at level 7 within a group 
set current level - current level ' .< 
set Level toSave - CurrentLevel +1 . 
else 

set currentLevel - current level + 1 
set Level toSave - currentLevel 

' - " . » ' :, ' * 
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end if' . - 

„ set Numrightlnarow = 0 ; ^ 

end If. ' * r 

•if, numwrong i narow >1 then 
• if . (current level- 30) mod (7) * 1 then ' 

set currentL/evel - .current level . ' . 
.set leveitoSave = current level 
• else ■ ... 

set currentlevel = current level - 1 , • 
set leveitoSave = currentlevel 
end if 

set. numWr ong inAr ow = 0 

■ end if 1 , ' 

if count (te^tPairList) < 1 then . - , . , 

■ - set gRoundOver .= true ' ' :-, 

exit : . - 

end if . - 

i- ... - » ■ ■ \ _ 

« ■ , . - . . . . • i 

». ■' * . • • 

end .. . 



• .' ■ ■ " * ' ■ . « ■ -. * - r ,' 

■ - ' •• ; " , , . " . • ■• »• •• 

on doTimeOut me - ' \* • •' 

global gWhichEgg, gRoundOver ' , ' .' 

if' count ( testPairList) < 1 then end of round so set flag 
set gRoundOver = true i ■ 

end if. ;• * • • • , - ; 

i - . * , , ... 

if TimeOutNum 1 then :r second timeQut in a row so bailout 
hideReplayButton me . 1 1 

go to babel (- "playAgain? • ) + 1 skip pref s test and go straight to prompt 
;■■ if count (roundscoreList) > 0 then 

\ user played some in this round so report scores 

• doEndOf Round me ' 

end if • ; . ' 

set. timeOutNum = 0 • ' 

set TimeOutanswer = empty - , 

else . •• ••- ', ■• . . 

— first ♦ adjust current level for wrong answer 

set Numwrong InaRow = Numwrong InaRow +1 • . ♦ • 

set -NumRightlnaRow = 0 
r i f riumwronginarow >1 then 

' 'if (currentlevel-30)mod{7) = 1 then 
* set currentLevel - currentlevel 

■ .else • • ' • ; ' . • 

set currentlevel = currentlevel - 1 : * 

• end: if -y : • 
set numWr ong inArow = 0 

end if 

if gRoundOver = false then not last egg 
• ~~ do egg drop and store scores to report 

if user plays again, else bailout above happens 
; , set gWhichEgg = "Wrong egg" \ t. 

set timeOutNum = TimeoutNum + 1 
Set TimeOutanswer = answer 
if answer = #pif f then . 

hideReplayButton me . ; ; ■ ' 

. ' go to frame "Diff Drop" . 
else /• ' ' 

. hideReplayButton: me 
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' go to. frame "same Drop" 

end', if « " 

else fcimeOut on last .egg so do scoring here;. ! ; . 

' — add scores to LevelToSave since current Levy! J- h,»: chany-d to 

-- reflect the 2 wrong, scores, in a row ' - . . ' '' /. , v.. V : - . 
set' gWhichEgg f "Wrong- egg" ' ' ; •' ' - 

•set AnsList = getaProp (roundscoreList ., levelToSave) , - 

if voidP( ansList)' then set AnsList = [0,0,0,0]'-- no scores yet .at this level 
• if answer = #Diff then '. 

hideReplayButton me ■ . , : / ., ; 

go to - frame "Dif f Drop" *, 
> set NumPlays = getat (ansList, 1) , ' 

set NumPlays - numplays + 1 
: setAt AnsList. 1, numPlays ' 
else . ■ '• . - : - /. * 

'hideReplayButton me . • 
go to frame "same Drop- 
set NumPlays = getat (ansList, 3) . . < 
■-■ set NumPlays = numplays + 1 
.. setAt' 'AnsList 3, numPlays ; ; \' ; 

. - end if \ • ' • ■„•.-■■ " • .'' ■ • , 

setaProp roundScoreList , LevelToSave, anslist 
set level tosave = currentLevel ■ 

' ' ' • ' - ;, ' ' • ■ : . ■ . '. • • • 1 . - . - : . • • 

end if ■ ■ . ■ ' - . 

end if " " • . .."/v. ' ■ . ". ' . ■ ' \. • • . V /' .'• 

end ',- : • . . ... V , -. , ■ ' 

... . - _ \ ' ■ : . . : , .... • ■ .■ 

1 ' • * * ■ - » 

on GheckForTimeOut. me ,. ' ■'.".-_ "•' ■■ 

~- call from "answer chickens" on stage 
resets ► timeOut and reports timeout score 
' . if -Ti^eOutNum > 0 then there./ is one Timeout already so adjust score for resumed play 
set timeOutNum = 0 --• reset counter 

-- add saved scores to levelToSave (level played at the time Out) not 
— to current level which may have changed ' 1 

-7 set AnsList = getaProp (roundscoreList, current level) 
set AnsList getaProp (roundscoreList /levelToSave) [ 
. retrieve list to report score from timeout egg 
if voidP (ansList) then set AnsList = (0,6,0, 0] no scores yet at this level 
if TimeOutanswer, = ^dif f then , / 

set NumPlays = getat (ansList, 1) 
.. set NumPlays' = numplays + 1 

setAt AnsList, 1, numPlays - 
else ' _'. •• . * >./ , ' '■ . . • •, ' . .. 

set NumPlays - getat (ansList, 3) ' 
set NumPlays = numplays + 1 

setAt AnsList, 3, numPlays ' : * 

' end if. - - : 

setaProp roundScoreList, currentLevel, anslist - 
setaProp roundScoreList, levelToSave, anslist 

set level toSave = currentLevel readjust levelToSave here, hot on timeOut . ' 
end- if • ( ' • • 



on ,doEndOf Round me 

if - not obje'ctP (gR'ecordkeeper) then, exit 

if voidP ( leveltdSave) then' set level tosave = currentLevel 
if level tosave > 115 then set leveltpsave" = 115 

■ * 
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put roundscpreList / ..-'> • • • v. 

• put LevelToSave = levelToSave v , 
saverpundscores (me'/rpundscoreiist . level tosave) 



on • xx- ■* - ■= - - -Pr i va t e Handlers ----------- 

■ - - i ' m a separator , , •- . 

end " > ■. 7 .• ;" " ■"' / 



on lnitDif f SameLists me ? v/-\-' 

set si = soundgroup&l 
.• set si = the number of rember si 

set r2 .= soundgroup&2 *■ \ 

set s2 = the Number of member s2 . 

set s3 = spundgroup&3 • 

set s3 .= the Number of member s3 

set. s4 ~ soundgroup&4 ..; 

set s4 ' = the Number of member s.4 

set s5 - soundgroup&5 

set s5 ■==■" the Number of member s5 

it.- , ....«-• . • ■ . , . ■ - 

set ; s6: = soundgrpup&6' ' - 

set s6 = the Number of member s6 

set; s7 . = s oundg r pup&7 , 

set ;. s7 = th-2 . Number of member s7 

set s8, ■•=. soundgroup& 8 , 

set s8 = the Number of member s8 

set ' s9 = soundgroupSc9 

set s9 = the Number of member s9 



set DiffList ■= [ : ] 

set SameList . [: ] i; \ - } ' , ' , ;< 

repeat with x = 1 to 7 ; 

case (x) of . : 

: 1: . addProp Tiff List ,1, \ [si, s9] , [s9 , si] ] : 

; addProp samelist .1, [ [si, si] , [s9, s9) }( . / - / • 

./ 2 : addProp DiffList , 2 , . [,[sl , s8] , [s8 .. ;.sl ] ; [s2 , s9 ] , [s9,s2] ] 

addProp samelist ,2/ [ [si, sl]\ [s2,s2] , [s8, s'8] , (s9 , s9] ] .... 

3 : addProp DiffList ,3, [ [si , s7] , [s7/sl] t , [s2. s8] , (s8, s2] , (s3 , s9J , (s9, s3 1] 

"'addProp samelist ,3'; [ [si , si] , [s2 , s2 ] , [s3 , s3 ] , [s7 . s7 ] / [s8, s8] , [s9 . s9]] 

4 : addProp Dif fList ,4, , ' : 

I [sl,s6] , [s6,sl] , [s2,s7] ., [s7.s2] ,' [s3.s8] , [s8, s3] ] .[s4;.s9J , [s9 f s4] ] 

addProp samelist , 4, , : . 



{ [sl/sl] , [s2,s2] ; [s3,s3] 
5 : addProp DiffList 

addProp samelist 
6: addProp DiffList 

addProp samelist 



[s4,s4] , [s6.s6] . [s7,s7] . [s8 # s8] # [s9 f s9] ] 

,.5 # [ (s2 , s6 ] , [s6.s2] , (s3,s7] ; , [s7/s3] , [s4,s8] , [s8 f s4] ] 



5 . [ [s2 , s2 ] . [s3 , s3 ) , ( s4 , s4 J 

6, [ [s3,s6] , [s6,s3j , [s4/s7] 
6 # [[s3,s3] f [s4; S 4] , [s6,s6] 

7: addProp DiffList .7, [[s4,s6] v [s6,s4]] 
addProp samelist ,1 . [ [s4 , s4 ] , ( s6 , s6 ] ] \ 



[s6,s6] . [sl.sl] , [s8,s8] ] 

ts7,s4] ] 

[s7,s7]] 



end .case 

• ■ i* * 

end repeat - . f- . 
end - 

-- i 

on setUpTestPairList me 
set testpairlist to [] 
repeat with x = 1 to 10 

append testpairlist ,* ^Diff 
: end repeat • 1 ■ 
set TempList = [1,2,3,4,5,6/7. 8, 9, 10]' 
repeat with x - 1 to 6 
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:-. set y = count ( templ'ist ) . 
' deleteat tsmplist, random (y) ■ 
end repeat ... . . . ' 

1 •^♦jd t wit h po s : i p. t emp List 
. •'. . setAt ( test pa irllst , pos , 8 same) 
. end repeat-. .. . 

..put testpair l ist . - \ 
end , ; • ' 



on hideReplayButton* me ' . : 

\ ' r- hides the replay button if it is indeed showing/ 

if - disableReplayBut ton .= true then exit — no heed to hide, since it's not on stage 
set the lbc of sprite 25 = point (-1000, -1000)".. ■ 
• 5 set the" loc of sprite 26 =; point (-1000, -1000) , . \ % ■[ ' - 

updates tage . - ■ . ".. ; • 

. puppet Sprite 25, false . ■ 

puppetSprite 26, false ■ < . • . . ' iV . -,\ 

. end '-' - ' . •'■ ••• ' * : ■ ■ ■>'> ' ■ ■ ■ .• 

on xxx- 7"tt -Testing Handlers------- 

i 'm a separator • . ' 
nothing - .. . , ■ • . - . 

end ■ ■ ■ . : ' ; . . • ■ ■ 



on showhandlers me • ' "■ 

put my hai idlers • 

end • - . . V. . ." . ■ ; \ ". .-' - ' 

on showProps me " •' ■ .-; ■ 

testing . ' . . 

. ■ puts list of 'properties cjrid their current values in message window 

set PropNum ■= cour^ (to) - 
repeatVwitb x - 1 to. PropNum 
' set prop 0 • V . . • . 

set this Prop. = getpropat (me, x) • 

if . thisProp p #myHaridlers then next repeat : " 

put (string (getpropat (me, x) ) ) getaProp (me, thisProp) into prop 

put prop .. U ' • , ." * 

L end repeat . /■ • ,'• . • • ' - . 

end ' ' ' ' 1 ■ -• •.' * - •"' "< : 
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on mouseUp 

global .gCVtest , gPauseStatus 

.if gPauseStatus - •resume" then exit 

CheckFqrTimeOut gCVtest " . 
checkaxiswer (gCVtest, Ksame) 
end ■ 
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Score Script2 4 



on mouseUp 

global gCVtest . gPauseStatus- 
. if gPauseStatus = "resume" then exit 

checkForTimeOut gCVtest ; 
. checkanswer (gCVtest , #DifL) .-. - ; : 

end v . . 



Score Script25 



on ex it Frame 
cursor 200 
spritesOn (30, 39) 

end 



Script of Cast Member26 



on rnouseUp 

global gCVTest 

checkAnswer (gCVTest , #Diff) 

- ! 

end 



Script of Cast Member27 



on mouseUp 

global gCVtest . 

doCVtest (gCVtest, ) 
end 



A 
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Score Seript28 



g Level , ■ gBounceNurn 



on exi-fc Frame 

global gRecordKeeper , gTheName, 

if ob j ec t P ( gRecordKeeper ) then 
w put setUpRound (gRecordKeeper, gTheName, 2) into g level 

_, if LiscP(gLevel) then we are playing the second gape 

set gBounceNum - getat (gLevel ,2) 
V- - set gLevel = getat (gLevel, 1) . , 

end i f 
-rr . ■ else 

set gLevel = 1 change here to integer over 30 to play game 2 
c-et gBounceNum - 0 
-r end iZ 

spriteListOff 



end 
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Movie Scnpt29.; , ; • . .- ' . . ;. • , 

on. Convert ScoringLevei seor ingLevei , preiList - . 

■, r take stored ' level and- sees -first if the level 

- - plays at "vowel M or ■"CV" game. 4 

-.- If "CV" it pulls out correct SoundFamily prefix. 
■ -global .gCVtest;. gVowelTest , gBounceNum . 
' if scoringLevei '<= 30 then we are playing vowel game . ■". • 

startnewround {gVowelTest, scor inglevel , prefList) ,. , . 

' '- qo to frame "Vowel sound* ■". 1 .•• - 

else • ; . •"' " . 

• set scoring level =. valued scoringLevei) 

if gBounceNum = 5 then -- change here to -set different bounce number 

- '-- we need to jump to next soundFamily ' 

--■ take scoringLevei and subtract out 30 vowel levels 
divide by 7 (make sure it's an integer !! ) 

then add one and times by 7 to jump a level , (add 31 top! ) , 
set' scoringLevei - (scoringLevei -30 ) II . ' 

set ScoringLevei, .-= ( Jseqriiigl^vel + l} *7) ^:31 J ■■ 
l: ' _ , ' - end. if . . ' 

case (true) of . '* . 

( ( 3 1<= (scoringLevei ) ) and ( (scoringLevei ) < = 37 ) ) : set soundFamily "RL165df *' 
v , '•' ( {38< = .( scoringLevei) ) and ( (scoringLevei) < =4 4) ):set soundFamily - "RL165nr" . 
( (45<= (scoringLevei) } and ( (scoringLevei ) <=51 } ): set soundFamily = "RLllOdf " 
{ (52<=( scoringLevei)) and ((scoringLevei) <= 58) ): set soundFamily '= "RLllOnr " 
{ (5?^= (scoringLevei) ).and( (scoringLevei) < = 65.)):set soundFamily = "DG80DF" 
( (66<= (scoringLevei) )and( (scoringLevei )<=72 ) ) :set soundFamily == "DG80nr " 
( (73<= (scoringLevei ) ) f and( (scoringLevei ) <=79 ) ) : set soundFamily - "DG40df r . - 
( (80<=( scoringLevei) ) and ( (scoringLevei) <=86) ) :set soundFamily - "DG40nr " 
( (87<- (scoringLevei) )and( (scoringLevei ) <-9 3 ) ) : set soundFamily ■= "mri80df " _ 
( ( 94 <= (scoringLevei ) ) and ( (scoringLevei ) <-100) ) : set soundFamily = " inn 8 On r "■; 
( { 101<= (scoringLevei) )and( (scoringLevei) < = 107 ) ) : set soundFamily = "mn40df 
(( 108<= (scoringLevei ) ) and ( (scoringLevei ).< = 114 ) ) : set soundFamily - "mn40nr" „ 

end case . , : ' ■■ - 

. startnewround. (gCVtest, ScoringLevei, soundFamily, PrefList) •". .' 
set gStartFrame <= "CVsound" — store which game to go to 

.end if- ' ' - ' ' I ' ''■ - r ■ . ' 

end - ■ • .. ' . ■ : \ ■ ■ ■ . • •. 

i . , .- ■ -r * , 

■ - > ■ ■ ■ " * * - "* , 

on Convert J imScori ngLevel scoringLevei *' " 

-h. take stored level and sees first if the level , 
--.plays. at "vowel" or "CV" game. 

If "CV" it pulls put correct SoundFamily prefix, 
global gCVtest , gVowelTest , gBounceNum 
if- scoringLevei <= 30 then . 

startnewround (gVowelTest, . scoring level ) 
go to frame "Vowel sound" 
else . . . , 

- set scoringlevel Value (scoringLevei ) 
if gBounceNum = 5 then 

we need to jump to next soundFamily 
take scoringLevei and subtract/ out 30 vowel levels 
-- divide by 7 (make sure it's an integer!!) • 
•-- then add one and times by 7 to jump a level (add 31 too! ) 
set scoringLevei = (scoringLevei -30) 11 ; . : . ' ; 
set scoringLevei = ( ( scor ingLeye 1 + 1) *7)+31 
end if, •' 
. case (true) of ' . "... 

( ( 31< = ( scoringLevei ) ) and( (scoringLevei ) < = 37 ) ) : set soundFamily = " DG80DF " -■ 
• ( (38<= (scoringLevei Hand ( (scoringLevei )< =44 }).: set soundFamily = "DG80nr* ' 
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( (45< = (scoringLevel ) ) and( ( scoring-Level ) < = 51 ) ) :set soundFamily ,= "DG40df * 
( (52<= (scoringLevel) ) and( ( scoringLevel )*= 58 ) ) :set soundFamily = "DG40nr" 
( (59< = (scoringLevel j ) and( ( scoringLevel) < =65 ) ) : set soundFamily = *RL165df " 
(. (66< = (scoringLevel )) and ( (scoringLevel )<=72) ) :set soundFamily =f *RL165nr " 
( ( 7 3<M scoringLevel) ) and ( (scoringLevel )< =79 ).) :set soundFamily =./ "RLllOdf " 
{ ( 80<= (scoringLevel) ) and ( ( scoringLevel ) <-86) ) : set soundFamily * "RLllOnr" 
( ( 87<- (scoringLevel ) ) and (( scoringLevel ) <~93 ) ) : set soundFamily == *mn80df " 
( (94<- (scoringLevel j )and( ( scoringLevel )<= 100 } ) : set soundFamily' =, ,, mn80nr " 
( ( 101<- (scoringLeyel ) ^ ) and ( .(scor ingLevel ) < = 1 07 ) y : set' soundFami ly =- : "mn40df 
( ( : 108<= (scoringLevel') )and( ( scoringLevel .)-<=i 14 ) ) : set soundFamily = . ,, mn40nr 
end case *' ■ -.- '•- 

startnewround. (gCVtest . ScoringLevel, soundFamily) . ' ... 

set qStart Frame- = "CVsound" V / .' ; 



end if 

end r 



Movie ScriptSO 



on stripDots whichcastLib 

' , : .: " ■ - ' . ' . ■ 

repeat with x = 11 to '12 ; ' :'J ; 

repeat with x =: 1 to . whichCast of castlib, whichcastLib * v 
, put the name of member' x of castlib whichcastLib into temp 
set Y = of fset ( " . " , temp) 
. set temp = char 1 to (y -1 ) v ';. emp 

set the name of member x of castlib whichcastLib = temp 
end repeat t '"• ' : . 

end . . .." ..' :«. * 
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Parent Scrjpt31 :vowe!Test ; ' ' . / 

\ .. _ * * _ 4 ' • ' ~ 1 

: " " I 

» ■, - * " . 

--4/9/97 ' * ; ' " > .. ' ' / ' ■ ' / : ' ' 

--Egg Basket "Replacement - - ' ' : T ' . 

■' 

■ .« •'■ * ■ . . . 

- ' . ' . • . i - 

property TestPai rList , current Level , RoiandList, ancestor,, myHandlers, arisw 
property' pairToPlay, /TimeOutNum, TirneOut answer , -sampleSoundList V 
Property disableBeplayButtonv skipYesOrNo • • . ' ,.• - 

■on x --Public Handlers --------- : "' -. " - . 

> "»•■"'■•»•. ■ • ... . 

' . I'm a separator ' , •.• ' • 

end • '' * • ' 1 " ' , " 

' - v . . . ' • • '• • . ■ •'■ - .-' ■ . . - ■ 

" • ' . ; - \ . * ' t 

.' , i ■ - : ' 

» ' . v ■ ■ „ 

" ' . ' ■ i • ■ 

.• ' " " . ' ' " * • • ■_ '• • ' • . ' • . - ■ ■ .... 

on new me.. , ' > 

. global- gRec.ordKeeper 

if objectP (gRecordKeeper) then , 

set the ancestor of me to gRecordKeeper ■ ' . , 

set; myHandlers - 0 . . • ■ , 

set .myHandlers Ge.tMyHandlers (me) " 

end if * . ' . : / . <...■ - • . •• 

return me ... .. 

end . /• . _ ' ' •*.;- " :V ' , 1 " v . • •/ ■ .' 

on startNewRound. me, level, Pref List . 

global gRoundOver • ". . ' . - , . 

set Current Level = level • ; . ■ *.,* 

setUpVowelList me; currentLevel 
- set RoundList = [:] } 
addProp ( roundList , currentLevel , [ 0 > G , 0 , 0 ] ) V 
set TimeOutNum = 0 ' ■ 

set gRoundOver == false ' .. • 
set disable.ReplayButton '= getAT (pref List ,1 ) ' ■ 

set skipYesOrNo ■= getAT (pref List, 2} " • ; '"' 

end: • "; ' . ■ ".. . '. '■ . - • .' .;. ; . 

, - . .... ■ • - • • 

on; doSampleSounds me, whichSounds . - • 

-- called from the score (ultimately), plays two pairs of 
same sounds if "whichSounds" = #same or different sounds 
■ if "whichSounds" = #dif f . Sounds are stored in two lists in property • 

• ~- SampleSoundList . first' sublist are same, second are different 
if whichsounds • = # same then 

set. samplePairs = [getat (sampleSoundList , 1 ) ; getat (sampleSoundList , 2 ) ] 
"' else • 

\ set samplePairs - [getat (sampleSoundList, 3 ). getat (sampleSoundList . 4) ) 
end if • : 

repeat with samplePair in samplePairs 
set f irstSound = getat (samplePair, 1) 

set secondSound = getat ( samplePair , 2 ) : 
puppet sound member f irstSound '• 
updates t age " • • 

repeat while soundBusy(l) 
; nothing.. . "." ' •' " . '• ' . '• ' 

end repeat • "•: ' ' . 

. puppet sound 0 
; wait . 30 ' •' 



/ puppet sound member seeondSound 
updates tage ( ■ 

repeat while soundBusy(l) 




m t 
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nothing 
end repea t . 
puppet sound 0 
: ' wait 90 •■" ■ ', 

.end repeat' 
end 




on. doVowelfest me ' ' " "-. 

* set PlaysLeit = count ( testPair List ) 
if PlaysLeft < 1 then exit- ; 

set pairToPlay = getat ( testPairbist , playsLeft) 
deleteAt (testPairList, playsLeft) 
jet sound! ■= getat (pairToPlay, 1} 

set sound2 =■ getat (pairToPlay, 2 ) ,"'*"!'/.. 
if sound! = sound2 then ! , . • 

• set answer ='#same- 
else * ■ " ' ' - . . ' ■ ' 
■ * set answer = Jdiff . 
end if • /' V . • 
puppet sound sound 1 _'. - ... ' 
updates tag e \ •.. ^ " 
repeat while soundbusy ( 1) 

nothing , " . 

end repeat " 
■■. puppe t sound 0 : ' ■ 
wait 30 

v ' puppetsound sound? : / 

upda test age 

repeat while soundbusy (1) . 
. nothing ■ •• ;, ; 

end repeat * ' 

; puppetsound 0 ... v. : , .' 

x ' ,1 

put answer - 

put the name of member sound 1 ► 
put the name of member sound2 • 
end : 

.... . t- - 

. • i. . • . 

on Repeat-Stimuli me ' / . ( \ 

set soundl = getat (pairToPlay, 1 ) 

set sound2 = getat (pairToPlay, 2) 

* * * ■ 

•puppetsound soundl . " : , 

updates tag '.f - / . . ' . ■• \ 

repeat while soundbusy ( 1 ) , 

nothing • •. 

end repeat x 
puppetsound 0. , ; 

wait 30. " . ' 

puppetsound sound2 
updatestage •:. 
repeat while soundbusy ( ± ) • ■ 

nothing • / ' 

end repeat .. , ; - - 

puppetsound 0 

...«.' 

V - - ,. . . 

end ; . .. 

on ch^ckAnswer me, whi chAnswer . ' ' 

global gRoundOver , gWhichEgg ' : * - 

- 1 - * 
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set AnsList = geta Prop ( roundList .current level ) 
if whichAnswer answer then -- right 
set gWhichEgg = "Correct Egg." 
if answer = #diff then 
' set NumPlays = getat (ansList, j) 
set NumPlays = numplays . + 1 ' .", 
set NuinRight - getAt (ansList ,2 j 
set Numright = numright + 1- 
setAt AnsList, 1. numPlays , }: ■_ 
setAt AnsList, 2, numRight 
h i d eRep 1 ayBu 1 1 on me '. 
go to frame "dif f Correct" 
else answer was #same 

set NumPlays = getat (ansList, 3) 
set NumPlays = numplays +1 . 
set NumRight = getAt (ansList , 4 } 
set Numright = numright +. 1 . ~;\ 
setAt AnsList, 3, numPlays 
. .' setAt AnsList 4 , numRight 
hideRepl ayBu t t on me 
>■ * go to frame "same Correct V 
• end. if .. -\ ^ 

else -~ wrong ! ! - . , . . 

set gWhichEgg = "wrong Egg" 
if ajnswer = #diff then : 1 

set NumPlays = getat (ansList, 1) 
. set NumPlays == numplays +1 
, setAt AnsList , 1, numPlays 
hideRepl ayBu t ton me * 
go to frame "same wrong" 
else . " 

set NumPlays = getat (ansList, 3) 

set NumPlays •■ = numplays + 1 - • 

setAt AnsList, 3, numPlays 

hideReplayButton me 

go to frame "dif f wrong" 

end if : 
end if f : : 

setaProp RoundList, Cur rent Level , anslist 
if count ( testPairList ) < 1 then 

set gRoundOver = true 
.exit '> 
end if v , .'" 

end 

•• • * 
on doEndOf Round me 

if hot objectP (gReoordKeeper) then exit 

set scores = get Prop (roundList, currentLevel) 

if (getat (scores, 2) >- 5) and (getat (scores , 4 ) = 4) then 

set levelToSave - currentLevel + 1 
else 

set level ToSave '= currentLevel" 
end if ' 
' put -"roundList = -&roundList 

put " level ToSave = "& level To Save 
SaveRoundSco'res (me, roundlist , level ToSave) 
end . ' . 
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on doTimeOut me _ . 

global gWhichEgq, gRoundOver 
if count (testPairList) < 1 then 

set gRoundOver =. true 
end if - ! . 

if TimeOutNum = 1 then ✓ ' 

■ • hideReplayButton me 

go to Label ( "playAgain? " ) +1 skip prefs test and go straight to prompt 

go to frame " PlayAgain? " : - 

set AnsList = . getaProp (roundList , currentlevel ) 
if getat (anslist , 1) > 0 or getat (anslist , 3 } > 0 then 
user played some in this round 
doEndOfRoui.d me 
. end i f ■ - 

set the timeout script = empty 
set timeOutNum,- 0 
set TimeOut Score = empty 
else 

if gRoundOver . = false then not last egg 

set gWhichEgg ~ "Wrong egg*" 
v s^t timeOutNum = Timeout Num + 1 

I -t TimeOut answer = answer 
. if answer = #Diff then 
hideReplayButton me 
go to frame "Dif f Drop"' 
else , 
hideReplayButton me 
go. to frame "same Drop" 
end if 

else timeout on last egg!! 
set gWhichEgg = "Wrong egg" 

set AnsList = getaProp ( roundList , current level) 
if answer = #di f f then 

hideReplayButton me 

go to frame "Dif f Drop" 

set NumPlays = getat (ansList, 1) 

set NumPlays = numplays + 1 

setAt AnsList, 1 , numPlays 
else 

hideReplayButton rr* 
go to frame "same Drop" 
set NumPlays = getat (ansList, 3) 
set NumPlays = numplays + 1 
setAt AnsList, 3 , - numPlays 
end if 
end if 
end if 

end 

r 

on CheckPorTimeOut me 

- - call from "answer chickens" on stage 
... t- resets timeOut and reports timeoutscore 

if TimeOutNum > 0 then 

set timeOutNum = 0 - . 

set AnsList = getaProp ( roundLi st , current level ) 
.if TimeOutanswer == #diff then 

set NumPlays = getat (ansList, 1) 
set NumPlays - numplays + 1 
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setAt AnsList, 1, numPlays 

else ' . •• 

set NumPlays = getat (ansList, 3) 
set NumPlays - numplays + 1 ■ 
setAt AnsList, 3 , numPlays 

end i f 

end if " " ; 



end 



on xx- -Private Handlers- — " 
.-- i'm a separator 

end ■ — 



on hideReplayButton me V * . : : ''■ 

. - - hides the replay button if it is indeed showing 
if di'sableReplayButton - true then exit -"- r:o need to hide, since it's not on stage 
set the loc of sprite 25 = point (-1000, -1000) ■ ; 

set the Iog of sprite 26 .= point (-1000, -1000) ' ' " . . 1 

upda test age • ' . '. " 

puppetSprite 25, false "• *;:• " .;■ 

puppet Spri te 26, false ■ ' : 

end . ■ 1 •■■>■ . • . 

t ■ - ■ . ' . . , * ■ - < 

on setUpVowelLi st me/ whichLevel 

sets up list of 10 4 lists, each sublist contains two items, 
the; names of sounds from a global list "gVowel Sounds" "■■ ' ' . * 

. these sounds are either paired with themselves or. are 
r~ paired with the other sound. As per i. struct ion /the handler sets up 
the ten list randomly with. 6 lists o\. different" pairs and 
.. - - 4: list's of "same" pairs ) . ' ' /• ..* 

global g Vowe 1 Sounds t ~ 

if whichLevel > count (gVowel Sounds ) or w:.xchLevel 
alert "There are no vowel sounds at that level. 
* abort 

; end if ' • -* . 

.set soundlist = getat (gyowel sounds , whichLevel) 

repeat with x = 1 to 2 -- change names to cast numbers 
.set Sound =. getat (soundList , " x); i 
set sound = the member of member sound , 
: setat soundlist, x, sound 
end repeat • • ' V . ■., 

set xx = [getat (soundlist , 1) , getat (soundlist , 1 ) ) 
set xy = . [getat (soundlist , 1) , getat (soundlist, 2 ) ] 
set yy ~ [getat (soundlist ,2) /getat (soundlist , 2) ] 
set yx =- [getat (soundlist , 2) , getat (soundlist , 1 )] . 
set Vowel Pa irList - [J 

set sameList = [xx,yy] . ' ' 

setdiffList = [xy ,yx] 



< 1 then ,. 

Check your' lingo. ' 



set samp 1 eSoundL i s t - [xx, yy , xy , yx] 

for use during "do Sample Sounds" handler 
--•first two items are lists of two same sounds 

'r I * 

second two are lists of two different sounds 

repeat .with x = 1 to ,10 • 

append VoweiPairList,- getat (diff list ,' random ( 2 ) ) 
end. repeat . ' . 
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/ set TempList • = [ 1 , 2 , 3 , 4 , 5, 6 ,.7 , 8 , 9 , 10] 
. repeat with x.= 1 to 6 : , 

set y = count (tempi ist). 
. deleteat , templist , random (y ) \ t r 
./end repeat '■■ 4 

repeat, with pos in tempList ; . 
v setAt (VowelPairList ,,,'pbs, getat ( samel is t , random (2 ) ) ) 
end repeat s • *. • .- 

set testPairList = ..vowel Pa i.rLi'st 

end '• *■ * 



on xxx----- --Testing Handlers- — -------- 

— i'm a separator . • ' ' 

nothing . . •. • '. 

end .. . 

■ . ■ -I ■ . • ■ • * ' 

• - * • -."■*■ ■ i 1 ■ ■ ■ ■ 

on showhandlers me ; ; . ' •* '.'. 

put -myhandlers, •:' " 

end 1 " . : ' ■ .. ■ ■ ' - • ■ • ,'. - 

' ■'• - . • - ■ r ' .»■■'■ . 

! • " ' I f '.' - ■ ■ • " * 

■ •■ .■ • . . ■ ' . - . . ;■ 

on showProps me < ■ " <• 

testing \ " '.' '* 

•-- puts list of properties and their current values in message window 
set PropNum' ■= count (me) :\ 

repeat with x = 1 to PropNum y : 

set prop = 0 • . / • - , •* * ; 

- set this Prop = getpropat (me, x) 

if thisProp = tmyHandlers then next repeat \ • . 

put (string (getpropat (me, x) ) ) getaProp (me; thisProp) into prop . 

put prop ■ ■*;■.■.""*"'.*■ ' . ; 

end repeat i" . f 

end . • ' - ■' ' ■ ~ ' • ■ ' : 
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. — . < ■ 



on setUpVowelList whichLevel - 

sets up list of 10 lists, each sublist contains two items, 

the names of sounds f rom' a global list " gVowel Sounds ■ 

these sounds are either paired with themselves or ar.e 

paired with the other sound. As per instruction, the handler sets up 

the ten list randomly with 6 lists . of ."different." pairs and . > 

--4 lists of "same" pairs V - 

global gVowelSounds 

if whichLevel > count (gVowelSounds ) or whichLevel < 1 then 
alert "That level is out; of range. Check your lingo p 

; -abort : . : '"' .' • 

end if - * . .... ■ , : . 

set soundlist = getat (gyowel sounds , whichLevel) 
repeat with x = 1 to' 2 change names to cast numbers 

set Sound . = getat (soundList, x) 

set sound = the member of member sound, 
... setat soundlist, x, c sound ' "v , - * . ' 

end repeat ".' \ _ % .."/• . 

. set xx .= [getat (soundlist , 1) , getat (soundlist , 1) j 

set xy . = [getat (soundlist , 1) /getat (soundlist , 2 ) ] ; : . ,, ; 
4 set yy = [getat (soundlist # 2 ), getat (soundlist , 2 )] ' 
set yx = (getat (soundlist ,2 ), getat (soundlist, i ) ] 
set VowelPairList = [] - . ^ 

set sameList =. [xx, yy] ■ ■■ **.•• , : . 

set diffList ' = fxy,yx] • • - : • ' 

- repeat with 5 x =' 1. to 10. - r " • 

append VowelPairList, getat (diff list random (2) ) 
end repeat ■ . - ; 

• set TempList = " [1,2,3,4,5.6,7,8,9,10] - . 

repeat with x ='. 1 to 6 ; ' • . ; ■ ■ ?. 

set y = count ( tempi ist ) ; / • 

dele teat tempi ist, random (yj* 
end - repea t ■ - . '" . "■' ■ 

repeat with pos m tempList - 

setAt (VowelPairList , pos, getat (samel ist , random (2 ) ) ) ... . 
end repeat . \ .. 

put VowelPairList \- '"' • 

return VowelPairList ' 

end • ■ • ''■ . ' . • • 



* ♦ 
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s 1 



' on ' putUpEgg whichEgg 

put member "no egg" into NpE^gg 
put member' whichegg into this£gg 
repeat, with , x - 30 to 39 ' - 

if- the member of sprite x <> NoEgg then 
• next repeat . 

else . . _ 

. set the member of sprite x = t tnisEgg 

updatestage . <_ 

• exit . - ; ; - , 

end if . 
end repeat . 

end ' . ' • 



> ■ 



Score Script34 



on mouseUp * : 

global ' gVowelTest 
CheckAnswer (gVowelTest , isaroe) 

end ' ' • . 
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Parent Script35:Egger * ' ' • 

* * * , ■ . 

property EggSprites, sameWrong sprite, Di f f Wrongspr i te , sameWrongNum, Dif fWrongNum, 
RightNum . • : 

on new me 

set sameWrong sprite = 4 : . • 

set Dif fWrong sprite = 5 . - ■' 

puppetsprite sameWrongsprite, true . . ' 

puppetsprite Dif fWrongsprite, true 
init me ; 
' return me , . .■ 

end • ;,' " . < • . . " ■ •• ' . . •'• 

• ' , ■ '• • ... " ' 

' ' . 1 " 

' -4 \ <■ » " " : 

on PutUpEgg me 

t global gWhichEgg . \ [. , ' . 

if count (eggsprites) < 1 then exit 
set thisEgg = getat ( eggSprites , 1) 

deleteat (eggsprites, 1) '.. 
, set the member of sprite thisEgg = member gWhichEgg' 
updatestage * 

end .. ; . ■ , [ . " • * ' ' 

L "i * - ■ - - . 

oh Init me 

global gEggBasketSprites ... . 

set eggSprites = [30, 31; 32, 33/34, 35. 36; 37, 38, 39) - 
repeat with x = 10 down to 1 

set the member of sprite getat (eggSprites , X) - member "no Egg" 

updatestage 

wait 4 • 
end repeat 

•set s ameW r ongNum =-' 0 
set DiffWrongNum - 0 
set. RightNum = 0 '*' 

set the member, of sprite sameWrong sprite = member ."SameBroke 0" 
set the member of sprite Dif f Wrongspr ite = member -DiffBroke 0" 
repeat with thisSprite in. gEggBasketSprites 

set the visible of sprite thisSprite = false ■ "" , 

■end repeat 

updatestage *' 
end v 

' > ..' • ' ' ■ ... ' :-. " ; '". - ;. . " 

on pu tUpBr okenEgg me, where .'. ' ■ 

un 1 oadmember . 

if where = #di f f , then . ' 

. ' set DiffWrongNum .= Dif f WrongNum + i 

set nextEgg = "Dif f "Broke DiffWrongNum 

set the member of sprite Dif f Wrongspr ite = member nextEgg "• 
.. else . . .-. . , . 

. set sameWrongNum = sameWrongNum + 1 

set nextEgg = " sameBroke " sameWrongNum 

set the member of sprite sameWrong sprite =" member nextEgg 

end if ■■ \ - 

pre 1 oadmember "crack* 1 

puppet sound 2, "crack" ' V - * 

updatestage 

end . ■' ■ • 
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on doEggBasket me 

global gEggBasketSpri tes 
set RightNum = RightNum + 1 
set the visible of sprite 
updates tage 

end 



getat (gEggbasketSprites , rightNum) = true 



Score Script36 



on mouseUp 

global gVowelTest 

CheckAnswer {gVowelTest , #Dif f ) 

end 
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on mouseUp 

global gVowelTest 
doVoweltest gVowelTest 

,end 



J 



> 
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Movie Script38:WaitHandlers 



on wait Howlong \ - . 

° ^ iew Improved -Wait - handler: doesn' t, reset turner 

every ^ime^it^s. called, be sure, to -StartTimer an 
' "on. StartMovie" ■ 

set x the timer r 

v put x into oldtime stores time 

repeat while (oldtime + Howlong) > x- 
• 'nothing 

set x = the timer 
end repeat 
end wait 

on waitPlus Howlong, doWhat . 
• - Same as above handler except that allows passing 

. _- of a handler to be executed during the wait 
-.- Handler, must be a string '■ '■ ■ ' . '. 

set x = the timer ; . 

put x into oldtime' stores time 
repeat while .{oldtime + Howlong) > x , 
: do doWhat ^- must.be a string . 
set x #■ the timer ' : ; • . 
end repeat. . ,'•* : . 

end wait . 

-» ■■•■ , _ i * « . , , - _ » 

on ignoreMouseDowns '.-*■■ . 
if the mousedown then dohtpas seven t 

•end . • > '• 



" I* H * ' . 



5 . 



»« * 



'. I 
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Movie Script39:spriteServ}ces 

on spritesOnList Spritelist 

--Takes: a LIST of non-consecutive (or consecutive) channel 
-- and. puppets them. Must be passed as a list [] 
. --turns global list. gSpritesOnList off. first and 
-- then turns oil spritelist and makes SpriteList • 
-- into gSpritesOnList 
• global gSPritesOi List 
if cou^t (gSpritesOriList) . > 0 then ; 

repeat with this Sprite in gSpritesOnList , 
puppetsprite (thisSprite, false) . 

end repeat ' : '.' < ' 

repeat with thisSprite in spriteList 

puppetsprite thisSprite, true 
• end repeat . . 

, set gSpr i tesOnlist; = spritelist 

. ■- . ■ ■ \ ".•*■■ 

else ' - 1 ■'"»■'■ . 

. repeat with. thisSprite in spriteList 
puppetsprite thisSprite,. truev 
end, repeat • 

set gSpritesOniist = spritelist 

end if' > ' 

end • • , • • . . • ■ . •'. 

on: spriteListOf f 

-- turns off all sprites on Current gSpritesonList 
. --and re- initializes that global 
global gSpritesOnList 
if VoidP (gSpritesOnList) then exit , 
repeat with thisSprite in gSpritesonList 
puppetsprite thisSprite/ false " 
.'end repeat \. • 

set gSpritesOnList =[] ; 
• end 

.. - . " . •- . • .• . v : . - .. . v. - 

on spriteson First Sprite, LastSprite 

turns on sprites in consecutive channels from 
FirstSprite - to Last Sprite 
global gSpritesOnList - '•' '/ r 
if count (gSpritesOnList) > Q then 

repeat With thisSprite in gSpritesOnList 

puppetsprite (thisSprite, false) ; : . 

end repeat t '. 

set gSpritesOnList = [] 

repeat withN = FirstSprite to LastSprite" : 
puppetsprite N, true 
add gSpritesonList , N 
*\ end repeat 
else 

.set gSpritesOnList = { ] 

repeat with N - FirstSprite to LastSprite 
puppetsprite . K, true 
add gSpritesonList/ N 
end; repeat: • 

end i f ' v 
end ' 1 

on Spritesof f , FirstSprite; LastSprite 
,* '-- turns off sprites in consecutive channels from 
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FirstSprite to Last Sprite ^^i' 
• repeat with N .. FirstSprite to- LastSprxfe 
puppet sprite N, false . 
end repeat 

■.••*■ _ • ■ . • , »• 

end •■ ' . . 
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° n SSKSmeO-t (SOO.-CVrestTimeOut", 
-end •' ' \ 
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on exitFraine 



end 



. , -y- 
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on VowelTestTimeOut 



doTimeOut gVowelTest 
end 



on .CVTestTimeOut 
global gCVTest 
1 doTimeOut gCVTest 

end 



• / 



i . 
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on exitFrame 

go to the frame 

end . . • 
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on mouseUp 
, go to movie 
end 



Datatest 



Script ot Cast Members 1 



on mouseUp . 
'.' go to frame 

end 



playagain 



Movie Script53 



on 



SetUserTimeOut hoy/Long, doWhat 



end 



Global 

put the Ticks + ' howLong into, 
put doWhat into ^gTimeOutHandler 



er 



on CheckUserTimeOut _ _, lpr 

global' gUserTimeOutTime, gT^eOutHaiidler 
'If the ticks < gUserTiineOutTime then 



exit 
else "-■ 

'■' do gTimeOutHandler ' 

se t rrTim^Out Handler = "empty 

end if 
end 



Script ol Cast Members? 



■ > 
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on mouseUp •• : : . 

global gVowelTest ' 
repeatStimuli gVowelTest ' ; ■ 

SetUserTimeCut (600. " vowelTestTxineOut ) 



end 
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on mou-jeUp 

global gCVtest 
repeatStimuli gCVtest . 
SetUserTimeOut (600,. 

^end 
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on exitFrame 

if sounubusy ( 1 ) then 

go to the frame 
else 
end if 

end 
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on exitFrame 

puppet sprite 10, true 

set the membernum of sprite 10 to 82. 
end ' :. 



Score Script65 
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on exit-Frame 
global gEgger 

putUpBrokenEgg gEgger, tiBitt 
end ' 
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on exitFrame 

global gHandCursor 
cursor gHandcursor 

end 
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on exitFrame 
global gEgger 

putUpBrokenEgg gEgger, isame 
end 



» T" 



Score Script92 



- 1 



on exitFrame 

global gRoundOver, gsoundFrarne , gEgger 
if gRoundOver = false then 
' putUpEgg gEgger * 
go to frame gsoundFrarne 

else 

■ putUpEgg gEgger 

go to f rame "QuitOrGoOn " 

set gRoundOver = false 
end if 

end • 



, i 
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. ... . t . 



on ekitFraine 

global'/ gEgger 
• putUpBrokenEgg gEgger 

end . . " . 



#diff 
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• on exitFrame 

global gEgger ; 
putUpBrokenEgg gEgger, J same 

end- 
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on exit Frame . ■• 

new ,p] a>e t -> set up round . ; . \ : -" 

needed to do here so .we can- poll the re''-- qajne, object 
■ ■-- to play sample sounds during- the"- i:}§t ni/rt i/-:\$r. that t'c i !•.»>■'. 
global'-" gEgger-. gHeooj dKeer>er . ' .gTLvNajrv • % g'i.^v**"* . ::F?eu::-'W'Jupi - 
mi t gEgger * ' •• ( • ' ■' / . 

if. object p (gRecoi dKeeper / then ... ' 

put setJJpRound * (gRecorciKeep^-'.v.. gTheName, j ) into g level 
--. -"getQaroe^refs" .>gRec-Q.rdK^per...' gfTheNajrv*'. 2 ) ' o pi ef List 



:: 1 game 



i f List P (gLevel ) 'then - : - we; are playing -the 
V > set gBounoeNum = getat (gLevel . 2 > 
; • ' set; *g Level = get at (gLevel . 1 i : 

5 - if • g.level -115. then f.et g level ^ 1 hi 
; ^ ' end- if ■; 'y ■ \ ■ ' . ; „ . : ' . / 

else • '-. ■ .■ 

-- for auth »r ing . on iy M. ' ! -i f not starting from '": r-t an ei " ' moyi e 

and hence; no ~gReoor<:lKeep-^r " object " this vri 1.1*- play the game at"- 
■ level i . ' Change .gLevel to any .you -mi qht waist ' 

it will only play at; that level, it y,-;.r; ' t- r. a .any new. lev-is 
> set qLevel = 1 • . ' 

■ set' gBounceNum. '- 0 ' r - ' '• • , - 

- end if' ... .' ' . . . .'• ••. • •• : ■ ; •- . . . ; . 

-' . - - set gLevel - 31 / . . 

conver tScor i ngLeve 1. gLeve i pret List. ; 
. playing ~ ; , ■ * . / 
end . ■' - : ' 



gLeve I .r 



i i gure 



bounds v; i • i 



r> -: 
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on ex it Frame • 

g lobaT gEgger . ; .; 
do Egg Basket gEgger 

end ■ ■ . 
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on exi t Frame / 
r\ lobal gEgger 



Score S'cnptl 00 




e>: i r Frame 

r-et. gEggei 
r.ound stop 1 ' 

? uppet sound \ . 0 
MTilpadmember 
ck - t ; o frame "intro 



si new (script "egger.") 
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global gCVtest : , •. 

i pppdtSt lmu i.i gGVtest 

'^tUs-rTimeOut' (600. -cyTestTimeair ) 

end i - ■ 



i, . 
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on exit Frame 

if soundbusy ( 2 } then 

qo to the frame 
end if 

end 
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on, mouseUp *. 
■" alcibal qVoy.v- 1 T-'St . gpausestatus 
i f gpaupestciT us = 



= -resume- then exit 



■i ^'peatSt imu 1 i qVowelTes t " . ' '■ w 

'^etUserTlmeOut '. (600, " vowel Test TimeOut ) 



end 



■ i 
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on mouseUp ' .-,\ 

■ go to f rame M.ylaek" . 

' go to movie "progress 

end . 
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Movie Script 120 y >■•■'• 

on P 1 aySounds i nCas t whichCast, whereStart 
. plays, every sound in the spec i f iech cast 
- and posts name and number in message window. 

This allows quick check of sound and if the sound is looped 
global: gWhereStart • 
if not voidP (whereStart) then 

set y '= wherestart ... 
else . . • 

if not' voidP (gWhereStart) then 

set y = gWhereStart 
else . • 

set y = 1 ' j 

end if - , ; 

end if ' ■ ■ • 

- ■ repeat with x - y to the number of members of .cast lib whichCast 
if the, type of member x of cast lib whichCast = # sound then 
put x the name . of member x- of castlib whichCast 
• puppet sound member x of castlib whichCast 
set gWhe res tart - x - 1 • - - / 

■ : \ upda test age \ . 

repeat while soundBusy.( 1 } i. .', 

if mouseDown ( ) .- true then 



/ . exit ' r -"■[_ ■- 

• return 0 , • • 

........ . . , * . 

end if . . ; 

end repeat ' . . ; ' ' 

wait 5 change here for longer pause between sounds 
end if 

end repeat / * ...... ■ 

end • • . •" / " • : • 1 • 
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on mouseUp 



set the visible of sprite 45 to false 
set the visible: of sprite 46 to false 
set the visible of sprite 47 to false 
sound stop. 1 
sound stop 2 
puppet sound 0 
go to- marker ( 0 ). 
continue - 



end 
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on mouseUp 

set the visible of sprite 45 to false 
set the visible of sprite 46 to false 
set the visible of sprite 47 to false 

sound stop 1 

sound stop 2 

puppet sound 0 
go to marker.(O) 
continue 



end 
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on mouseup 
don t pa s seven t ; 



end 
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on mouseUp . ■ 

go to f r.ame . "piayagain" 

end 



Score Script 131 . 



on mouseup ■■ : 

global gpausestatus • 
set. gpausestatus ' = "resume". ■■ , 
set ..the. visible of sprite 46 to false 
go to marker (0), •- 



end 
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•on mouseup 

global gpausestatus . 

set gpausestatus =" resume " 

set the. visible; of sprite 46 to false 
' go to marker (0) 

pause 
end • ., 
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on mouseUp ..- - ; . . . :• 

* sound stop .1 . • • • ' - 

sound stop 2 
• puppet sound 0, . ..... 

repeat ; with. xv= :i to 48 . /. 

puppet sprite x, false 
-set the visible of sprite x to 
end repeat . : ; ; 

cursor 4 _'. 
go to frame "black".- ; 
go to movie "progress" 
end " + 



* ■ 



t rue 
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--on mouseup * 

- - -- puppetsprite 4 5 /true . , 

_^ sef the member -of sprite 45 to member 

-T-. - ' updatestage . 

— . - - pause ■ ■ 

sel the visible, oi sprite 46 to false. 

pause • , 

- - <; v., : - / / ., . . ; : ' ; ., , , 

- - end . .; - ■; ' '.. 



resume .pic t 

* i 



i * 
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on mouseUp /- / V - . : 1 ' ' 

glohcil gpaiiGestatus ,j, < 

c,ei ypausestacu'S .-•= "pause" 
• 1 --set the member of sprite 45 .to member 

- V -upda test age , • ' - . - 

puppetspr i te 45, false ... 
" set "the visible of .sprite .45. to false ; 
set the visible of sprite 46 to false 
set the visible. of sprite 47 to false- 
sound stop 1 ' ' v 
. sound stop, -2 '\, , : . - 

. puppet sound 0 . . 

g>> to marker ( 0 ) • 

•cont i uue . • • 



"pause .pict 



t?nd 



t ■ * . ■ 



r i 



•J 
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j _ • . ■ 

on mouseUp 
global 



if the visible of sprite ;47,' , false.. then 
set the visible of sprite. 4S to true . 
■set the visible of sprite 47 to true 
.'if gpausestatus - "pause" then . 

' set the visible of sprite. -46 to true . 



of sprite 47 to false 
of sprite 4 5 'to false 



end 

r 


if,.. 




else 






set 


the 


V i si b 1 e 


set 

y 


the 


vis ible 


• set. 


the- 


*- 

vis ible 


end i 


t 





r,f sprite 4 6 to false: 



upda ces t.acie •' 
- ; - j -upper spr i te .4 5 true 



X" 



end 
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on mouseUp 

global gpausestatus 
set gpausestatus = ''pause" 

- -set the member of sprite 4 5 

- - upda test age' 

puppet sprite 45, false 

set the visible of sprite 45 
set the visible of sprite 46 
set the visible of sprite 47 
sound stop 1 
sound stop 2 
puppet sound 0 

- oo to 

marker iO) 

SetUserTimeOut , (600. " CVTestTimeOut " ) 
cont ihue 

V 



to member "pause /pict 



to. 
to 
to 



false 
false 
false 



end 
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on ex it Frame 

if- :--,oundbusy (2) then 

qo to- the frame 
else 

repeat with x - 1 to 48 

puppet spr i t e x. false 
end repeat 
end if - 



end 
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on mouseUp 

go to frame -playagain 

end 
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on mouseUp 
; curr.or A . * - : ■ 
go to frame -seeya 

end \ 
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on mouseUp 

go to frame "black" 

go to movie " progress 

end 
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on mouseUp \- : 

go. to frame "playagain 

end 
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on exit-Frame ^ - _ 0 

. -- report scores here, after farmer says his piece 
' global gSoundFrame,gVowelTest .gCVtest . 
if ' soundbusy(2) then 
go to the frame 

else . • • 

case (gSoundFrame) of 

( label ("vowel Sound")) : do EndOf Round g Vowel Test 
" (label ("CvSound") ) : doEndOf Round gCVtest 
end case . 
end if " 
end \ • 
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on exitiVarne .". 

curso ' A ■ ' 
. go tc-Lftpvie "progress" 

end . 



* — i ■ - - r .. 

Script of Cast Member 1 55:no.PCT 
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* f pri exi tFrame. . - 
go to the frame 



end 



Score Script 159 

on ex it Frame 

i f soundbusy ( 2 ) then 
"go to the frame 
" ' end if 

end*. 



* s ' 
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on ex it Frame • 

p laySampleSounds It same 

end 



■ I* 
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on exitFrame; 

p 1 a y Samp 1 e Sound s pif-f 
end 
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Movie Scriptl 64 • v ? , 

<■ •* _ ' . ■ * 1 \ 

• * 1 f ■•■■*■. ' 

; * ■' ■ ■ . i 

: T . * p, . ■ f 

; on pi aySampleSounds whi'chSouhds 

uses q Level to figure out, which game is being played 
— r then calls that game's object to play sample sounds •' 
- and parses on ;-he parameters (either fcpi ft or ft same) 
to', inform the object which sounds to play 
global gCVtest ; gVowelTest , g Level ' ; 
•if g Level <- 30 then , .... > C 

doSamp 1 eSounds (gVowelTest, whichSounds ) 
else •' ■ ■' '.. " '"V - • . ■ - . 

doSample. Sou nds (gCVtest, whichSounds) . ' - ' 

end i f :• \ ■ . , , : 

end . .. . ■;. . 
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on mouseUp 

.-- this script is here tc 

-- keep the cursor from flickering during the animated 
sequences. Don't delete please. 

end • 
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oh exit Frame 
' repeat with x = H^> .to 47 : . 

set the visible of sprite x • to false 

end repeat . •' 



end 
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on mouseUp 

sound stop 1 .- 

sound stop 2 : ,. ; 

puppet sound 0 / - 

repeat with: x' = 1 to/48'.-. 1 . - 

f > puppet sprite x. false 

' set the visible of sprite, x to true 

end repeat ; ; ' • 

;go.to frame "black" ' ; 

no to movie "progress" . .... . ' .'. 

end .■ . 
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on mouseUp 

global gpriccstatus 



if the visible of sprite 47 = false then 

set the visible of sprite 45 to true 
.. set the visible of sprite 47 to true 
if gpausestatus = "pause" then 

set the, visible of sprite 46 to true 
end if 1 



else 

set the visible of sprite 47 to false 
set trie visible of sprite 45 . to false 

set the visible of sprite 46 to false 
end i f 



updatestage _ 

puppetsprite 45. true 



end 
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on exit-Frame • 

if soundbusy ( 2 ) then 

go to the frame 
end if 

end . 
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on ex it Frame ' ■ - . ' > 

global.. gVowelTest . , ' T .,• ''. 

if the. disAbleRePlayButton of' gVowelTest j=_:f alse. then-, 

show the replay Button ' ./ 

, L . puppetSprite 25, true /• , / , 

puppetSprite 26,- true ' _ 
set the loo of sprite 25 = point (.611, 25) • 
. set the loc of sprite 26 = point (580,-1) 
upda test age ; 
end if • ! - / ■; ■< 

end l " *. • " ■ ■ ; • ' ' ■ 



i • 



- ■ . % ■ 
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"i 



on exitFrame 
global gCVTest 

if the' disAbleRePlayButton of :gCVTest = false then , 
*- show the replay Button - 
puppetSprite 25, true . < 
puppetSprite 26, true 

set the loc of sprite 25 = point ( 611 , 25 ) 
set the loo of sprite 26 = point:( 580 , -1.) 
updatestage - 

end- if. ■; : • • ' 

end : 4 ' ■ 



; s 
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on exitFrame - ' 

global gVowelTest, .gCVTest ■ 

if the skipYesOrNo of gVowelTest or the skipYesOrNo of gCVTest = true then 
repeat with x = 45 to 47 t • 

set - - the visible of sprite x to false . - 

end ; epeat "\ 
go to frame "playAgain" . ' . ; A 

end if : " . . 

end 
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on exitFrame 

preload the frame, the 1 frame +3 
4-- preloadmember • "same" 
preloadmember 2- 

end ' 1 • 
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Parent Script201 :CVTestProctor 4.9 ' ' \ f ; . 

„ - a * J - 

. *' . ' . , ' ■ • . - , - ■ < > S , ■ ■ • . ■. 

Property TestPairList ,. ancestor, myHandlers, current Level , DiffList, SameList 
property roundScoreList , SoundGroup, Answer, NuinRightlnARow, NumWr ong I naRow. 
Property LevelToSave, PairToPlay, timeoutNum, TimeOutAnswer ' 

on x —-Public Handlers . . : 

-- I'm a separator • . • '■ 

end - • * •. •• 

■ • ■ •' -i 

on new me » '. ! 

global gRecordKeeper ,. . !, ■ 

if " Object P (gRecoxdfteeper ) then* -V . 

set the ancestor of n>o to gRecordKeeper 
set myHandlers = 0 

set myHandlers - GetMyHandlers (me) ' ; " ." 

end if V \ .' ' 

-• return Me , .. '■' ' 

end '• ■ 



on startNewRound me, whichLevel, whichsoundGroup 
- -r Pub. '• . . . • •• . ; 

sets up lists of soundpairs for current group of levels 
--: "WhichSoundGroup" is a string which all the sounds for this 

group share with only numerical suffixes changing 
--the soundGroup property never changes during a round 
global gRoundOver 1 . :■' 

setUpTestPa.irList me v ': '• 

set RbundScorelist .= '( : ] ? 
set soundgroup = whichsoundGroup - ^ 
initDif f SameLists me. 

set numRi gh 1 1 nARow = 0 . • \ - 

set NumWrong InaRow = 0 ' 

set current level = whichLevel 

set t imeOutNum = 0 

set TimeOut answer - empty ' 
set gRoundOver = false . ' ~, '.\ 

' put souhdGr oup . ! 

end r •. ■ - ' . c 



■ 1 1 



on doSampleSounds me, whichSounds 
pub. 

called from the score (ultimately) , plays a pair of 
--. same sounds if "whichSounds" — Isame or different sounds 
-- if "whichSounds", #diff. Sounds are pulled from the 

current sound group ' 
if whichsounds ..= isame then 
set sound 1 = soundGroup&l 
set samplePair = [soundl , soundl] . 
else .-' 

set soundl = soundGroup&l '• 

'set soundZ = soundgroup&9 ■ . 

set samplePair = [soundl ;sound2 ] 
; end if c ' ■ 

.: set first Sound = ge tat (samplePair; 1) : . .' •! 

set secondSound = getat (samplePair , 2) 
puppet sound f irstSound . ; , 

updates tage " ; , - 

repeat while spundBusy(l) . ' 

. ■ " '* '. - - ■ • 
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nothing • : - - ' ; • ;\ ' / 

end repeat - . .'' -\ 

: -'.puppet sound" 0- : ; , . • ■.■'.* " 

wait 30 . ' ' ; . ; . - 

puppetsound seconds puhd * 

updates t age - ■ ■ 

repeat while sqiindBusyd) - \ « .' ', . , • * ■ ■ 

nothing * . ■ ■ . • • • • 

end repeat . 
puppetsound 0 

end •' - ' - ' '" ■ > . 

,• . ■ . . - - .. . ■ . 

. ■ ; ' ■ ■ ■ j ■ 

on PoCVTest me : , ' . / ; y • 

-~ pub.' '■ - : ~' , ' ■ -. ' 

this is handler to play test ' / ' • - ■ 

-~ it plays the two sounds and sets the property "answer" ■ according to 
whether the answer is. same or different. These options are passed as 
. -t> symbols, ie. #saine or #dif f . , 
set level = (currerit level -30) mod (7) . . 

if level = 0 then, set Level = -7 ' . '■. . V , ' / " \ . • .", x 

set PI ays Left = count ( test Pair-List-)- . ' 

if PlaysLeft < 1 then exit.; y • 

set NextPair ■ = getat ( testPairList , playsLeftr / • . 

deleteAt ( testPairList ;. playsLef t) ' 

if next Pair = #Diff then / .. •' 

set pairList - getpr'op (diff list , Level ) " •' 

set pair = random (count (PairList ) ) 'r \. - 

set ; PairToPlay = gctAt ( PairList > Pair) '• '. , / : ■ 

set Answer. = #Diff • - • . 

else! V '■ • .. * " • 1 '■ * . "■ ,/' ; ; 

set pairList = getprop ( same list , Level } 

set pair = random (count { Pa irl 1st )) . - 1 

set PairToPlay = getAt (PairList , Pair ) ... - - 

set answer = #same • , . f \ - 

end if . ■■- 

put answer • ' ■ • ; . '' .» ■ ■>. : 

set sound! = getat (PairToPlay , 1 " 

puppetsound member, sound!' V- ; ; . : 

updates tage ■ .; . *' '* • ■ -'. ' . • • ' \ ■ . 

wait 30 . " '• " . ■* 

set sound2 = getat (PairToPlay, 2 ) • '' ■> 

puppetsound member sound2 , . , ' 

updates tage : 

put the name of member soundl : ■ ■ '' 

• put the name of member sound2 > ■ " . ., . 

put "current level =., - U current Level * - ' 

end " ; ; • .'; ; 1 . ' '" 

on Repeats timuli me ; • - • 

pub. " 

replays two current sounds if ' 
user needs to , 
. set sound! = getat ( PairToPlay /!) ' '" 
set sound2 =' getat ( PairToPlay , 2 ) 

puppetsound member soundl ^ 
updates tage . \ 

wait 30 , ' . ; '". 

puppetsound member sound2 • . ' ' , • 

. updat es tage .. ' : - . , . ' 

end ' • ' - ■ ■ "' • 1 • "--■*•■ 
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on CheokAnswer me, whichAnswer . ( . ; 

this handler should be called from the 

. — choice buttons, io the hen pairs on screen. " . - . 

it evaluates the answer given by the user and -, keeps a property list 
--• accordingly to report to the RecordKeeper . The answers must be passed 
-- as symbols #Same or #diff. The list being kept is a property list 
. -- with the current level as the property, the value is itself a list , 

-- with 4 items, the. first :2_.are_f or scores on different sounds, the 
: last 2 are for scores on same sounds. 

This . handler also keeps -track of how many right or wrong in a row 
-- the user answers dur ing - ar round . If 4 right answers in a row then 
--the level is raised by 1, if 2 wrong in a row ic drops by 1. 
global gRoundOver,. gWhichJEgg 
if wh i chariswe r "= ^ariswer ^ : tn"e^rF : - - Right ! : ! ■ 
- set gWhichEgg - "Correct Egg" 
set NumRight inaRow = NumRight InaRow + 1 * ' , 

set NumWronginARow '.= 0 . , , - . . ; , - 

if answer = #diff then • '. , ■ 

■ r ' ' go to frame "Diff correct" . / 

set AnsList = getaProp (rounds cor eList , cur rent level ) 
! v if • voidP (AnsList ) then no score at this level yet 

set AnsList = [1,1,0,0] , - • / \ : ; ; 

addProp roundscorel is t, cur rent Level , ansList 
' " ' . else ' . ;. : : - ' ' • ' . .[ ' 

set NumPlays = getat (ansList, lj - 
set NumPlays numplays + 1 . - 
set . NumRight = getAt (ansList , 2 ) -. ■ 

' set Numright = numright + 1 . 
setAt AnsList, 1, numPlays 

setAt' AnsList, 2, numRight - ' 

, ■ setaProp RoundscoreList , Current Level , anslist 

^ ' .end if , '•; >m . " , ; " ■' - • ■ " ■ , • .,• . 

else answer was # same ' . :'* 

go to frame "Same Correct" • t J 

sec AnsList = getaProp ( rounds cor eList , current level ) . *- 
if voidP (AnsList ) then -- no score at this level yet 

set AnsList' = '[0,0, 1,1] . •' , ! ; 

• addProp roundscorelist, curren t Level , .ansList 
• else 

* set NumPlays = getat (ansList, 3) ■ 
-set NumPlays - numplays \+ 1 
set NumRight = getAt ( ansList, 4) 
: ,set Numright = numright + 1 

setAt AnsList, 3, numPlays . ' 

.setAt AnsList, 4, numRight 

setaProp Rounds cor eList , Cur rent Level , anslist'; 
end if 

end if ' . " - 

• • , • - " •■ ■ .• 

* ■ - . 

else wrong! ! 

set gWhichEgg = "wrong Egg" 

set NumR i gh t inaRow 0 

set NumWronginARow = Numwrong InaRow + 1 

i _ ■ a 1 " * r 

; if answer = #diff then 

go to frame "same Wrong" ■ . . . 

set AnsList . =? getaProp ( roundscoreList , currentlevel ) 
if voidP(AnsList) then - no. score .at this level yet. 
.set AnsList = [l.C.0,0] 

■ ■ r ■ . «. 

\ • * 1 - 

* h - i 
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addProp r oundscor el i s t , current Lev 3I , ansList 
else ... 
set NumPlays = getat (ansList, 1) 
set NumPlays = numplays +1 
setAt AnsList, . 1, numPlays 

setaProp RoundscoreList , CurrentLevel . anslist. 
end if 

else • ; 
go to frame "diff Wrong " 
'set AnsList = getaProp (r oundscor eList , current level ) 
if voidP (AnsList) then no score at this level yet 
set AnsList = [0,0,1,0] t 

addProp roundscorelist , current Level , ansList - 
else • -* 

set NumPlays getat (ansList, 3) 

set NumPlays = numplays + 1 

setAt AnsList, 3, numPlays 
■ setaProp RoundscoreList , CurrentLevel ,.' Anslist 
end if 
end if 

■ . ■ * 

. end if ' ' 

if numrightinarow > 3 then 

if ( current level- 30) mod (7 ) = 0 then we are at -level 7 within a group 

set currentlevel = currentlevel . , , • 

set Level toSave ~ CurrentLevel + 1 
else • 

set CurrentLevel = currentlevel + 1 

set, Level toSave = CurrentLevel 
end if ' 

set Numrightinarow = 0 
end if 

if numwr ong i na row >1 then 

if (current level -30 ) mod ( 7 ) = 1 then 
set CurrentLevel = currentlevel 
set leveltoSave = currentlevel 
else • . • ' 

set currentlevel =' currentlevel - 1 
set level toSave = currentlevel 
•end. if \ 
* set numWronginArow = 0 * 
end i f 

if count ( test PairList) < 1 then 

set gRoundOver .= true . 

\ : exit' . .. . ' / . . _ 

•end if - 

end 

-: , i 



on doTimeOut me 

global gWhichEgg, gRoundOver . 
if- count ( testPairList) < 1 then end of round so set flag 
set gRoundOver = true 

end if <: \ ' . 

. if TimeOutNum = 1 then -- second timeOut in a row so bailout 
go co frame "playAgain? " 
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if count (roundscoreList) > 0 ;then. 

- -- user played some in this round so report scores 
doEndO f Round me- : v 
■•■ • end if '• 
set tLmeputNum = 0 
set TimeOut answer = empty 

• else • ; ^ ... . . . '* . .< _ 

-- first adjust current level for wrong answer • - 
set Numwrong InaRow = Numwrong InaRow + 1 . 
set NumRight InaRow = 0 
i f numwrong inarow > 1 then 

if . (current 1 eve 1-30) mod ( 7 ) - 1 -then '* 
set currentlevel = currentlevel 
\ set level toSave = currentlevel . • 

else - ; - ' . ' ■ ' 

- set currentlevel. = currentlevel 1<.. 
set leveltoSave = currentlevel. 

end if . " ■ *' ■' 

■" - * . ■ .i 

set numWr ong inArow = 0 
end if ' " ' . I ' ' 

if gRoundOver '=■ false *. hen -- not last egg 
, • - - do egg . drop and store scores to report . > 

--if user plays again, else bail put; above happens 
set gWhichEgig = "Wrong egg" 
set timeOutNum = TimeoutNum + 1 \ 

Set TimeOut answer = answer' I: 

I* ■ , - 

if answer = #Diff then / * . / l 

• . • • - . • • , ■ '. • * • 

\ go to, frame "Diff Drop" • 
: ' else V. . ; ; . - . ; • 

go to frame "same Drop" ^ 
. end if .. 

else timeOut on last egg so do scoring here 
set gWhichEgg = "Wrong egg" 

set AnsList = get aProp ( roundscoreList /current level ) 
if vpidP ( ahsLis t ) then set AnsList =. [0,0,0^0] -r no scores yet at thislevel 

if answer = #Diff then . V • • 

*• -• . (...-•. . ■ ... 

go to frame "Diff Drop" * 
set NumPlays, =- getat (ansList, 1) 

set NumPlays =- numplays + 1 . 
setAt AnsList, 1. numPlays ;/ 

. se - '. . ' ■ ' ■' ■ . .-. '.. 

gc to .frame "same .Drop " 

'set ^hJ^aPlays - ge tat (ansList , 3) , • ; . - 

. ■ , set NumPlays = numplays + 1- 

set At AnsList, 3, numPlays : ' ; * . ■ 

end if * • , . ** .• - . 

setaProp rpundScoreList , currentLevel, ans list v 

end if • ■ ■■ 

end if ' - . , • * : 

end • - 



on CheckPorTimeOut me 

call from "answer chickens" on stage 

• ■ - - ■ > ■ ■ ■ • • ■ , . ■ . . 

resets txmeOut and reports timeout score 
if TimeOutNum >. 0 then this is- second Timeout • .' 

set timeOutNum = 0 reset counter . 

set AnsList = getaProp ( roundscoreList , current level ) 
retrieve list to report score, from, timeout egg . 
if vo i dp (ansList } then ,set AnsList =.[0,0,0,0] no scores yet at thislevel 
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• : if TirheOutsaiswer = #diff then 

set NumPlays = getat (ansList, 1) 
set NumPlays = numplays + 1 
setAt AnsList, 1, numPlays 

/else " . - ... • . . - 

set NumPlays = getat (ansList, 3) 
set NumPlays = numplays +1 x ■ 

setAt AnsList , 3 , numPlays 

.end" if' . 

setaProp roundScoreList , . curr.ent Level / anslist 

end if ' - 

end ." '. ■ ' 



on doEndO f Round me ! 

if not objectP(gRecordKeeper) then exit 

if voidP ( level tbSave) then set leveltosave = currentLevel 
if level to save > 115 then set leveltosave = 115 
saveroundscores (me, roundscorelist , leveltosave) 

end - - - 



on xx ----Private Handlers--- — ----- !i '■ r , 

i \m a separator , • • . 

end • > . "' .. . 

on InitDif f SameLists me ,• ' . , , ; 

set si = soundgroup&l \- V 

set si = the number. of member si * . ; ; .. ' ■ . 

set s2 = soundgroup&2 
sec s2 = the Number of member s2 

set s3 = s ouhdg r oup& 3 - 
set s3 = the Number of member s3 - 

set s4\ = soundgroup&4 . / 
set s4 = ' the Number of member s4- - 
set s5 = soundgroup&5 „ . 

set s5 = the Number of inember s5 . .,. ' ; 

set s6 = soundgroup&6 - 

set s6 = the Number of member s6 - " .-. 

set s7 - soundgroup&7 • : ^ ; . 4 ' • 

set s7 = the Number of member si 

set s8 = soundgroup&8 v •"*■ • ; 

set s8 = the Number of member s8 ■ 

■ ■ .. • ... . - • •. > . . 

set s9 = sbundgroup&9 * *\ • 

set s9 = the Number of member s9 

set DiffList = [:] '" 
set SameList =' ( : ] 

repeat with x = 1 to 7 r . ■, 

case (x) of . - * ' ■ , 

1: addProp biff List , 1, [ [si, s9] , [s9 , si] ] > : 

addProp samelist ,1, [ [si, si] . [s9, s9] ] . < ' , 

. -2: addProp DiffList ,2, ( [sl,s8] , [s8, si] , [s2, s9] . [s9, s2] ] 
addProp samelist , 2, [ [si, si] i [s2, s2] , [s8 f s8] , [s9, s9] ] 
3 : addProp DiffList ,3, ([sl,s7] , (s7,sl] , [s2;s8] # [s8 , s2 ] , [ s 3 , s9] . (s9 , s3 ] ] 
. addProp samelist ,3. [ [si, si].. [s2. s2] , (s3, s3] , [s7,s7] . [s8, s8] , [s9,s9.]] 
4 : addProp DiffList ,4, 
[ [sl..s6] , [s6,si] ,:[s2.s7] ,[s7,s2] , (s3, s8] , [s8,s3] t [s4 , s9] ,.{s9\ s4] ] : • 

addProp samelist ,4, 
[ [sl,sl] /[s2,s2] ,[s3,s3J . [s4,s4]> [s6,s6] , [s7;s7] , [s8, s8] , (s9*, s9] ] 

5 : addProp DiffList ,5, [[s2,s6] , [s6,s2] . [s3 , si ) [s7 ; s3 ] , [ S 4,s8] , [s8/s4] ] 

' ■ APPENDIX A-397 



i • >,. 



... \ 



addProp samel is t ,5, [ (s2 , s2 ] , t [s3 , s3 ] , (s.4,s4], [s6 , s6] , [ s 7 , s7] , (s8,s8) ) 

6: addProp DiffList ,6 , [ [s3 > s6] ., [s6, s3] , [s4,s7] , [s7 # s4]j _ \ 

addProp samel is t ,6,. { [s3 , s3 } , [s4 , s4 ] , [s6 t s6] , [si ;sl)] 
7 : > addProp DiffList ,7, [ [s4 , s6] , [s6, s4] ] 

1 addProp sairiel is t ,1 , I [s4, s4] , [s6, s€] ] - 
end case : . . , ... 

end repeat ... . : •■ . 

end • : - 1 ' • : 



on se'tUpTest Pair List ick 
set testpairlist to [) 
. repeat with x = 1 to 10 ■ ;* . 
append testpairlist , #Ditf 
end repeat . 
\ set TempList = [ 1 2 , 3 , 4 ,5, 6 ,% 8 ( 9 . 10] 
repeat with x =■ 1 to 6 : 
set y ~ count ( tempi is t) 
deleteat t empl is t, random (y) 
end repeat 
• repeat with pos in tempList ■ " 
setAt ( testpairlist . pos #same) 
end, repeat. 

put testpairlist , • 
end' • : 



on xxx------ -Testing Handlers---- — --^-- 

i 'm. a separator 
nothing 

end . •'■ . • 

■ , ' -- 

on s ho whand 1 e r s me; , . . 

put myhandlers ; 
end- ' - - - 



on show Props me' • ' . ' : 

■ — : 'testing , . • \ ' ... ' .'. . ; 

-- puts list of properties and their, current value? in message window . > 
set PropNum = count (me) , 
repeat with' x = 1 to PropNum ; 
s.et prop = 0 

set this Prop ~= 'getpropat (me, x) 

if thisProp = #my Handlers then next repeat ; 

put (string (getpropat (me, x) ) ) = getaPrbp (me, thisProp) into prop 
put prop - ■ , r 

end repeat "■ ■ . ' 

end . • ' ' ' - • • 
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Parent Script202:vowelTest 4.9 

:.. • - . ... - , • . ;\ . ' / .-t. , . ■ t - • 

property TestPairList , currentLevel, RoundList. ancestor, myHandlers, answer 
property pairToPlay, TimeOutNum, TimeOutanswer ,. sampleSoundList 

' . ". . ■ ,. ' , .' ' ■ ■ . •. ' • - " 

on x----- -Public Handlers - ------- , ' . • / v ; 

— I'm a separator . ; ' ■ 

end . ' ■ " . . . 



on new me •> * ! 

global gRecordKeeper . ■ . 

if obj ectP (gRecordKeeper). then 

set the ancestor of me to gRecordKeeper 

set myHandlers = 0 
\ set myHandlers = GetMyHandlers (me) 

end if 

4 *■ 

return me 

•• ,- - ., i • - • 

end ' ■ ■ v . ■ 

• ' ■ .. ! ; - ... "• ■■ . v '"' '■ ;•. 

on startNewP.ound me, level 

global gRoundOver . • r • 

set CurrentLevel = level . 

setUpVowelList me; currentLevel 

set RoundList - [ : ) ■ . : • 

addPrpp (roundList , currentLevel , (0,0 ; 0,0] ) 

set Txn>eOutNurn = 0 ' ;■ * . 

set gRoundOver false - 

. end • 



on doSanpleSounds me/ whichSounds : ' 

.-- pub. • . ••" .. ;'; •' 

■ rr-r. called from the score (ultimately) , plays two pairs of ' 

same sounds if "whichSounds M ^ #same or different sounds ; \ 
. .-- if -whichSounds".- #diff. Sounds ' are stored in two lists in property., 
— SampleSoundList, first sublist; are same, second are different 
if whichsounds = # same then J-\ 

set samplePairs = [getat (sampleSoundList , 1), getat (sampleSoundList , 2 ) ] ; 

' else \- " ■»• , 

set samplePairs '=' {getat (sampleSoundList , 3 ) , getat (sampleSoundList , 4 \ ) 

end if 

repeat with samplePair in samplePairs 

set f irstSound = getat (samplePair , 1 ) . ■ ■ ■ 

set secondSound = getat ( samplePair . z } 
puppet sound member f irstSound 

updatestage ■ ■■ ' - , • ■ 

repeat while souridBusy ( 1 ) : '• \ . • 

nothing ^ , . 

end repeat v ; • • 

, puppetsound 0 ; * 

wait 30 

puppetsound member secondSound 
\ .) updatestage . .. : \ 

repeat while soundBusy(l) . ' , 

nothing 

end repeat ' r 

puppetsound 0 
, wait 90 '', ; •' ' ' " 

end repeat 

.end . . :'. ' ; :.' 

- ■ . - . * » ■ - 
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on doVowelTest me * 

set PI ays Left = count ( test Pa irList ) 
• if PlaysLeft < 1 then exit 
set 'pairToPlay ' = . getat ( 'test Pa irList ,_' playsLeft) . 
deleteAt ( testPairList , playsLeft) , 
set . soundl - getat {pairToPlay , 1 ) 
set sound2 = getat (pairToPlay , 2 ) , 
if * soundl = . sound2 then v 

ii .... ... 

set answer' = if same :/.."• 
. else . • ' . ' 

set answer. = #diff 
end if ' ' • . • : . 

puppee sound soundl 
updates tage 

waif "30 . • " - - . , ' ■ 

puppet sound sound2 . •' - 

updatestage 

put answer ; > , 

put the name of. member, soundl ' ; ■'■ " ' 

put the name of member sound2 
end. 

on RepeatStimuli me 

set soundl - getat (pairToPlay , 1) 
set sound2 = getat (pairToPlay, 2) 
puppet sound soundl 7 " . • 

updatestage 1 *■ ■ -■ 

. wait 30 .;• . . , 

puppet sound sound2 
updatestage 

end 

on checkAnswer me, whichAnswer 
global gRoundOver , gWhichEgg 

set AnsList = getaProp (roundList , current level ) - 
if whichAnswer = answer then . right 
set gWhichEgg ■= "Correct Egg" 
if answer = #diff then 

sec NumPlays = getat (ansList, 1) \ - 

set NumPlays = numplays + 1 

set NumRight = getAt (ansList , 2 ) 

set Numright - numright + 1 

setAt AnsList, 1, numPlays 

setAt AnsList, 2, numRight 

go to frame "diff Correct" 
else --answer was #same 

set NumPlays = getat (ansList, 3) 

set NumPlays = numplays + 1 

set NumRight = getAt (ansList. 4) 

set Numright = numright + 1 

setAt AnsList, 3 , numPlays 

setAt AnsList, 4 / numRight' 

go to frame "same Correct" 
. end if , 
else ■-- wrong!! 

set gWhichEgg; = "wrong Egg" 
if answer = #dif f 'then 

set NumPlays = getat (ansList, 1) 

set NumPlays = numplays + 1 
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setAt AnsList, 1, numPlays - 
go to frame "same wrong" 
else 

set NumPlays = getat (ansList , 3) 
set NumPlays = nump lays + 1 
setAt AnsList, 3, numPlays 
go to frame "diff wrong" ■ 

* 2, i 

end if 

- ■■ 

end if 

setaProp RoundList , Cur rent Level , anslist 
if count (testPairList ) < 1 then 

set gRoundOver = true 
exit 

end if . . 

end 

* * ■ * i 

■ 

on doEndOf Round me 

if not objectP (gRecordKeeper) then exit 
set scores = get Prop ( roundList , cur-rent Level ) 
if (getat (scores, 2 ) >= 5) and (getat (scores, 4) = 4) then 

set levelToSave =' cur rent Level + ■ 1 
else .-' 

set levelToSave = current! .eve 1 
end if ■ ". . * 

SayeRoundScores (me, roundlist , levelToSave) 
end 

+ ■ 

on doTimeOut me 

global gWhichEgg, gRoundOver , 
if count (testPairList ) < 1 then 

set gRoundOver = true ■ , ' 
-end if , 
if TimeOutNum = 1 then 

go to frame "PlayAgain?" > 

set AnsList = getaProp (roundList , current level ) 
if getat (anslist, 1) > 0 or getat (anslist, 3) > 0 then 
t- user played some in this round 

doEndOf Pound me 

-•I » . » 

'. end if 

set- the timeoutscript = empty 
set timeOutNum = 0 
set TimeOutScore = empty 
else 

if gRoundOver = false then not last egg • 

set gWhichEgg = "Wrong egg" 

set timeOutNum = TimeoutNum + 1 . 

Set TimeOutanswer = answer 
..if answer = #Dif f then 
, go to frame 'Diff Drop" 

else 

go to frame "same Drop" 
end if 

else timeout on last egg! ! 
set gWhichEgg - "Wrong egg" . 

set AnsList = getaProp ( roundList , current level ) 
if answer = #diff then 

■*■ _ . . ..... . t 

go to frame "Diff Drop" 
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set NumPlays = getat (ansList, 1) 
set NumP lays = numplays + 1 : 

setAt . AnsList , 1, numPlayo . - ' y 

else . ' . • : ' . ■ ' 

go to frame "same .Drop" ' ,. *" ■ 

set NumPlays .= getat (ansList , 3) 
set NumP lays = numplays +1 
setAt AnsList, 3 . ' numPlays 
end if - " 

end i: ' " . \ ' < ■ ' ' '■ 

end if 

i ' ^ m » ■ ; • 

~.-4 " , ■ - • " ■ ' ! . ^ '■" " ■ 

" ~ ■ ' ' - ... . "' • 

c.4 CheckP'^rTim^Out me * ' - 

call f rom "ans^-'er chickens" on stage . • • ' . 

-"- resets timeOut and reports t imeout sc< ; r<?. • ; . 

if TimeOutNum > 0 then : ' : 

set t imeOutNum = 0 ' ; 

set AnsList - 'get a Prop ( roundList, , current level ) ' ; 

if Tin^eOutanswer = #diff then . 

•. set NumPlays .' = getat { ansList . , 1 )" 

set NumPlays = numplays +. 1 

setAt AnsList, 1 , numPlays • 

■ e 1 se , >. '.■_■"■'* • . ' - : " 

set NumPlays = getat (ansList, .3) - ■ . , 

set NumPlays = numplays +1 ; 

setAt AnsList, 3, r^imPlays , . 

enr 5 if • . , "■ .-: • . ■ 

ei id if ■ - * • / '., ... j . ' 

end . .-/ ' - . •• , , ■ 



on xx Private Handlers - ----------- 

. i ' m a separator 

end ; . 



on setUpVowelList me, whichLevel . 

sets up list of 10 lists, each subl is t contains two items. v . >. 

- - the names of sounds from a global list " g Vowel Sounds " . ■ . . 
-V these sounds are either paired with themselves or are 

--. paired with the other sound. As per instruction, the handler sets up 

- - the ten list randomly with 6 lists of "different" pairs and 

4 lists of "same" pairs , ' 

. global gVowe 1 Sounds 
if whichLevel > count ( gVowel Sounds ) or whichLevel < 1 then 1 

alert "There are no vowel sounds at that level . Check your lingo." 

abort .' 
end if ! . ; . • < 

set soundlist - getat (gvowel sounds , whichLevel) 
repeat with x = 1 to 2 --. change names to cast numbers 

set Souncl = getat (soundList, x) ; . ' :"' 

set sound the member of member .'sound . 

setat soundlist, x,, .sound / . '/= ■■ 

end repeat '.' "••.-*. '• ■■ 
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set xx = -[get at ( soundlist ,1 ) , get at {soundlist , 1 ) ]- 
set xy = (getat (soundlist, 1) , getat (soundlist , 2 j] - 
se t yy = [getat (soundlist , 2 ) , getat (soundlist , 2 ) ] 
set yx - [getat ( soundlist , 2 ) , getat (sound! ist , 1)] 

set Vow-^lPai rList ■=-. [.] V" : . - . 
set sameList = ( xx, yy ]. , 
rp t- d i f f L.- 1 s 



— f m / \ ry 1 



set .rampleSoundList = (xx , yy ,xy , yx] 

foi use during " do Sample Sounds " handler 
first two items are lists of two same , sounds 
second two are lists of two different sounds 



; repeat wi'h x = 1 to 10 ' _ : 

append Vowel Pair List*, getat (diff list , random(2) ) 
end repeat. .' - ; ' .... . . 

set- Tenip.List = ( 1 , 2 .3,4 , 5., 6 ,7 , 8 , 9 , 10 j \'\ ■ 
repeat w: th x = 1 to 6 .'. _ 

■ -v • set y - count { tempi ist ) 

deleteat tempi ist , random (y) 
end repeat ., .->. . • "; , f . . 

• repeat with pos in tempList 

setAt (Vowel Pair List .pos, getat (samel ist , random (2 ) ) ) 
end repeat . . .V . . ' •/."->'■ 

set test PairList =. vowelPairList r 

end "• > . 



on xxx- . - - -Test ing Handlers----- ./ : ■ : . - ,."\ 

i*m a separator v ' • 

nothing, " '■ - . r • • ■. ■ . ' ; 

end . ; ■ .. .. • , . • ' r 

• ' . . . 

on shpwhandlers me". 

put myhandlers .' ' " 

end . .. • . , • ; ■ " . ' ■ ■ ■ " ' '• • • • / • 

*- - ■ i * , ■ -« 

on showProps me ' - ■ , *" 

testing ' ' ' " . • 

. puts list' of properties and their current values in message window 
set 1 PropNum - count (me) . . ? 

repeat with x .- 1 to PropNum ; , . ... 

v; set prop = 0 J . - ■: 

: set thisProp .= getprppat (me, x) 

if thisProp. = #myHandlers then next repeat ; . 
\ put (string (getpropat (me, x) .) ) = geta Prop (me, thisProp) into prop 

pUt prOp ' , ; ' 

end repeat 
end • 
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Script of Cast Member2:Age 



t- 



• t 
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